EXCEL VBA копия ячейки + цикл + разделитель

Question

У меня есть appx 3000 строк, и я хотел бы иметь готовые ячейки в качестве конечного результата.

1) копию и

2) петля

Цикл состоит из 6 клеток. D2 и D3, от F2 до D4, от F3 до D5 и от G2 до D6, от G3 до D7.

У меня проблемы с относительным позиционированием ячеек, где начать с 1-го цикла.

3) разграничить

Как я могу разграничить с фиксированной шириной? Я нашел много так называемых инструкций, но не примеры.

Спасибо за советы.

Answer 1

вы можете использовать

Sub LoopRange() 
'officevb.com 
Dim rgArray As Variant 
Dim rg As Range 
Dim i As integer 

'if your range not mutable use 
rgArray = Array("D2:D3", "D4:F2", "D5:F3", "D6:G2", "D7:G3") 

For i = LBound(rgArray) To UBound(rgArray) 
    For Each rg In Sheets(1).Range(rgArray(i)) 
     Debug.Print rg.Address 
    Next rg 
Next i 

End Sub