Установить высоту строк на листе 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

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

10 голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы