VBA 引用取自存储在数组中的工作表，用于在不同工作表中选择单元格

Question

在工作表中，我存储了对 C 列中的单元格地址和 B 列中的公式以及 A 列中的工作表名称的引用。我找到了一种修剪公式的方法，现在我想使用 C 列中的单元格地址来替换公式我在给定地址的不同工作表中的 B 列中修剪，使用 A 列中给出的工作表引用名称。所以如果 A1 说工作表奥地利，B1 有公式 Sum(A1:D1)，C1 有单元格引用 A345，我想能够将 B1 粘贴到表奥地利的 A345 中。

这是代码，它停止使用单元格引用来引用特定工作表中的单元格。出于某种原因，VBA 不喜欢我这样做的事实。我一直在研究，因为我是初学者，我不知道该怎么做。您的帮助将不胜感激。如果您在尝试解释时可以更改代码，我将不胜感激。

Private Sub CommandButton1_Click()
Dim arr() As Variant
Dim puff As String
Dim puff1 As String
Dim n As Long
Dim i As Long
Dim str As String
Dim strjn As String
Dim Rng As Range


With Columns("C:C")
 .Replace What:="[Lisbon.xlsx.xlsm]", Replacement:=""
End With

With Columns("C:C")
 .Replace What:="'='", Replacement:="='"
End With

With Columns("B:B")
 .Replace What:="$", Replacement:=""
End With

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Linkslist")
n = sh.Range("C2", sh.Range("C2").End(xlDown)).Rows.Count

arr = WorksheetFunction.Transpose(Range("B2:B" & n).Value)

For i = 2 To n
j = i - 1
Worksheets("LinksList").Activate
puff = Chr(34) & arr(j) & Chr(34)
Range("C" & i).Select
Selection.Copy
Worksheets(Range("A" & i).Value).Select
Range(Range(puff)).Select
Next

End Sub

Answer 1

你只需要这样:

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Linkslist")
n = sh.Range("C2", sh.Range("C2").End(xlDown)).Rows.Count

For i = 2 To n
    Worksheets(sh.Range("A" & i)).Range(sh.Range("C" & i)).Formula = "=" & sh.Range("B" & i)
Nexti