如何根据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)"