Нужно через каждую (+2)строчку вставить две пустых.
Не судите строго - 30 мин назад начал изучать
моя попытка:
For i = 1 To 20
Rows("i+2 : i+2").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next i
Заранее спасибо за помощь!
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Переменная в ячейке и строке |
| Автор: Гость_Андрей 6.5.2004, 11:43 |
| Суть: Нужно через каждую (+2)строчку вставить две пустых. Не судите строго - 30 мин назад начал изучать моя попытка: For i = 1 To 20 Rows("i+2 : i+2").Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Next i Заранее спасибо за помощь! |
| Автор: Guest 6.5.2004, 12:00 | ||
Держи, |
| Автор: Mephisto 12.5.2004, 17:09 |
| Лучше проходить с конца, так точно глюков не будет. |