☰

Excel：用于复制粘贴和制作表格的简单 Do 循环

tag-icon • tag-icon microsoft-excel vba macros copy-paste
Excel：用于复制粘贴和制作表格的简单 Do 循环

我希望做一个简单的（我认为！）Do-loop 来执行以下任务：我的简单程序按我想要的方式运行，但我认为有一种更简单的方法，因为我想重复它 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

相关内容