獲取單元格的計算公式

'獲取計算公式，使用Formula屬性

Sub cb_test()
Dim ll_SheetCount
Dim ls_SheetName
Dim ls_gs
Dim ll_Item

ll_SheetCount = Worksheets.Count

ls_gs = ""

''Sheet1 (2)'!B3:C3

For ll_Item = 2 To ll_SheetCount
    ls_SheetName = Sheets(ll_Item).Name
    If InStr(1, ls_SheetName, "(") > 0 Then
       ls_gs = ls_gs + "+'" + ls_SheetName + "'!B3"
    Else
        ls_gs = ls_gs + "+" + ls_SheetName + "!B3"
    End If
    
Next

Sheets(1).Cells(5, 8).Value = ls_gs