excel - 如何使用 VBA 将一张纸上的 3 个单元格组合成另一张纸上的 1 个单元格？

Question

因此，我一直在手动执行此过程，但我需要使用宏将其自动化，但使用以下公式:

='Sheet1'!C2&"|"&'Sheet1'!D2&"|CM"&'Sheet1'!H2

我需要将 3 个数据单元格拉到 Sheet2 中的一个单元格中，并用一个中断分隔。以及为接下来的 96 行执行此操作。到目前为止，我已经尝试过这样做:

Dim SheetName As Worksheet1
    Set SheetName = Worksheets("Sheet1")
    Worksheets("Sheet2").Range("B2:B97").Formula = Worksheets(2).Range("C2:C97") & "|" & Worksheets(2).Range("D2:D97") & "|CM" & Worksheets(2).Range("H2:H70")

Worksheets(2) = "Sheet1"

不断收到对象定义的错误。
但我一直得到一个

Answer 1

像这样，确保在公式中加倍引号:

Worksheets("Sheet2").Range("B2:B97").Formula = "='Sheet1'!C2&""|""&'Sheet1'!D2&""|CM""&'Sheet1'!H2"

删除线条

Dim SheetName As Worksheet1
Set SheetName = Worksheets("Sheet1")
...
Worksheets(2) = "Sheet1"

因为它们没有任何意义。