Excel: простой Do-цикл для копирования, вставки и создания таблицы

Question

Я хочу сделать простой (я думаю!) Выполните следующие действия: Моя простая программа работает так, как я хочу, но я думаю, что есть более простой способ, поскольку я хочу повторить ее 1000 раз. Возможно, используя какую-то петлю? Do-Loop или иначе. Короче хочу:

1. скопировать содержимое из А1
2. Вставьте их в B1
3. скопировать ячейку C1 (она имеет простую формулу, которая действует на B1)
4. скопируйте «значение» (только) из C1 в D1 (который будет таблицей таких значений)

Я хочу сделать это для A1 до A1000 и получить таблицу значений D1, D2, ..., D1000 (возможно, в виде квадратной таблицы). Клетки B1 и C1 остаются фиксированными.

Моя программа ниже:

Sub PasteSpecial_Examples()

    Range("A1").Copy Range("B1")
    Range("C1").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues

    Range("A2").Copy Range("B1")
    Range("C1").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("A3").Copy Range("B1")
    Range("C1").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues

    Range("A4").Copy Range("B1")
    Range("C1").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues


    Application.CutCopyMode = False

End Sub

Answer 1

Вы хотите простой для ...Следующий цикл:

Sub PasteSpecial_Examples()

  For i = 1 To 1000
    Range("A" & i).Copy Range("B1")
    Range("C1").Copy
    Range("D" & i).PasteSpecial Paste:=xlPasteValues
  Next i

  Application.CutCopyMode = False

End Sub