特定纸张的3D范围

时间:2018-05-21 19:39:56

标签: excel excel-vba vba

我正在尝试创建一个公式,在excel中将多个工作表中的相同单元格相加。

但是,我只想使用已经解决的表格#34;或者有前缀" Set"以他们的名义。

我尝试过使用带有逻辑语句的3-d引用,但似乎不支持它。建议?

1 个答案:

答案 0 :(得分:1)

或者一点点UDF:

Public Function SumSettledSheets(cellAddress As String) As Double
Dim ws As Worksheet
Dim total As Double

For Each ws In ThisWorkbook.Worksheets
    If InStr(1, ws.Name, "Set", vbTextCompare) > 0 Then
        total = total + ws.Range(cellAddress)
    End If
Next ws

SumSettledSheets = total

End Function

这样打电话:=SumSettledSheets("A1")