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