VBA - EXCEL добавление данных в лист

Узнай цену своей работы

Формулировка задачи:

Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас помочь
вот таким образом я помещаю первую строку данных в указанный лист
Worksheets("Отчет").Range("C9") = "1"
Worksheets("Отчет").Range("D9") = "2"
Worksheets("Отчет").Range("E9") = "3"
Worksheets("Отчет").Range("F9") = "4"
Worksheets("Отчет").Range("G9") = "5"
Worksheets("Отчет").Range("H9") = "6"
Worksheets("Отчет").Range("I9") = "7"
запись данных должна начинаться с девятой строчки
как добавить вторую, третью и т.д. строку данных в этот лист ?
я понимаю так
1. проверить не забита ли строка 9,10,11 и т.д.
2. передать в переменную номер незабитой строки
3. добавить данны
пробовал так
ctname = 9
If Worksheets("Отчет").Range("C" + ctname) = "" Then
Worksheets("Отчет").Range("C" + ctname) = "1"
Worksheets("Отчет").Range("D" + ctname) = "2"
Worksheets("Отчет").Range("E" + ctname) = "3"
Worksheets("Отчет").Range("F" + ctname) = "4"
Worksheets("Отчет").Range("G" + ctname) = "5"
Worksheets("Отчет").Range("H" + ctname) = "6"
Worksheets("Отчет").Range("I" + ctname) = "7"
esle
ctname = ctname = +1
а вот как быть дальше не могу сообразить
возможно я мудрю или делаю все через голову
мне надо добавлять строки в этот лист от определенной позиции в данном случае от 9 строки
С Уважением и Благодарностью
Намик

Решение задачи: «VBA - EXCEL добавление данных в лист»

textual
Листинг программы
Worksheets(<font color="teal">"Отчет"</font>).Range(<font color="teal">"C3"</font>).<font color="blue">End</font>(xlDown).Offset(<font color="darkblue"><b>1</b></font>,<font color="darkblue"><b>0</b></font>)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы