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)"

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

1 个答案: