Question

在MS Excel中，我正在使用VBA，试图计算具有相似名称的工作表的数量（即所有以“East”开头的..然后总计）。我有代码计算工作表的数量，但有时它在某些机器上使用宏时，工作表总数翻倍。有没有人有任何想法为什么会这样？

这是我用来计算工作表的代码：

Dim wb As Workbook
Dim ws As Worksheet
Dim myTotal As Long
Dim wsTotal As Long

For Each wb In Workbooks
    For Each ws In Worksheets
        If ws.Name Like "20 Out of Court" & "*" Then myTotal = myTotal + 1
    Next ws
Next wb
wsTotal = myTotal

Answer 1

尝试下面的代码：

Sub sample()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim myTotal As Long
    Dim wsTotal As Long

    For Each wb In Workbooks
        For Each ws In Worksheets
            Debug.Print ws.Name
            If InStr(1,left(ws.Name,4), "East", vbTextCompare) > 0 Then ' will check for start with "East"..
                myTotal = myTotal + 1
            End If
        Next ws
    Next wb
    wsTotal = myTotal
End Sub

计算具有相似名称的Excel工作表的数量

1 个答案: