Excel:一個簡單的 Do-loop,用於複製、貼上和製作表格

Excel:一個簡單的 Do-loop,用於複製、貼上和製作表格

我希望為以下內容做一個簡單的(我認為!)Do 循環:我的簡單程序按我想要的方式工作,但我認為有一種更簡單的方法,因為我希望重複它 1000 次。也許使用某種循環? Do-Loop 或其他。簡而言之我想:

  1. 複製A1的內容
  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

答案1

您想要一個簡單的 For...Next 迴圈:

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

相關內容