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