如何根据VBA中的预定义索引从另一个工作表复制和粘贴一系列单元格

Question

我正在努力理解为什么不能对工作表单元格的块执行以下操作。(当我对其他实例做类似的事情时，它会起作用(。最终，我尝试在我的"输入"工作表中的某个范围内粘贴一个公式(调用不同的工作表(。

公式应为...

=+D14*(1+Sheet1!$D$4)

对于第一个单元格，它应该为范围内的所有其他单元格自动更改。

这是我代码的简化版本，可以了解我到目前为止尝试过的内容......谢谢：

Option Explicit
Sub PasteTest()
Dim ws(1) As Object
Set ws(1) = Worksheets("Input")
Dim idx_1, idx_2, idx_3 As Long 'no of cells
idx_1 = 76
idx_2 = 8
idx_3 = 3 + idx_2 + idx_1
ws(1).Range("D" & idx_3 & ":DR" & idx_2).Formula "=D14*(1+Sheet1!" & Chr(36) & "D" & Chr(36) & "4)"
End Sub

Answer 1

Dim ws As Object
Set ws = Worksheets("Input")

然后：

Dim idx_1 As Long, idx_2 As Long, idx_3 As Long

最后：

ws.Range("D" & idx_3 & ":DR" & idx_2).Formula = "=D14*(1+Sheet1!" & Chr(36) & "D" & Chr(36) & "4)"