Установить высоту строк на листе Excel - VB
Формулировка задачи:
Задачка хитрая. Есть в excel что-то вроде
ABC 4
DEF 2
Нужно после каждой такой строки вставить её же, но вставляемых строк должно быть как в указанном числе. Т.е. это должно выглядеть как:
ABC 4
ABC 4
ABC 4
ABC 4
DEF 2
DEF 2
Решение задачи: «Установить высоту строк на листе Excel»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim iNumberOfInserts As Integer Dim i As Integer Dim j As Integer Dim iMyRow As Integer For i = 1 To 2 If i = 1 Then iMyRow = 1 iNumberOfInserts = Range('B' & iMyRow).Value Rows('' & iMyRow).Select For j = 1 To iNumberOfInserts Selection.Copy Selection.Insert Shift:=xlDown Next j Selection.End(xlDown).Select iMyRow = ActiveCell.Row Next i Application.CutCopyMode = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д