Основная проблема цикла копирования с диапазоном и итерацией столбца

Question

Как я могу превратить следующее в цикл 500x?

Range("A14:A6368").Cut Range("B1")
Range("B14:B6368").Cut Range("C1")
Range("C14:C6368").Cut Range("D1")

По сути, я скопировал таблицу в Интернете, когда я вставляю в Excel, я получаю все это в 1 столбце. Должно быть, все просто, но я часами гуглял и не могу найти решение!

Спасибо!

Answer 1

Возможно что-то вроде следующего:

Dim i As Long 
For i = 1 To 500
    Range(Cells(14, i), Cells(6368, i)).Cut Destination:=Cells(1, i + 1)
Next

Вы также можете использовать Offset.

Dim i As Long
For i = 0 To 499
    Range("A14:A6368").Offset(, i).Cut Destination:=Range("B1").Offset(, i)
Next