☰

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

tag-icon • tag-icon microsoft-excel vba macros copy-paste
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

相關內容