如何使用 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"

不斷收到 object 定義的錯誤。
但我一直得到一個

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"

因為它們沒有任何意義。

Answer 2

這是一個示例，說明如何在所有范圍都在同一張紙上的情況下執行此操作。 你幾乎只需要在這里嵌套你現有的公式並雙引號你的條形分隔符

Sub try()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Range("D1:D3").Formula = "=A1 & ""|"" & B1 & ""|"" & C1"

End Sub