比较工作表在工作簿中的名称获取匹配工作表总数no

Question

我有以下代码可以计算工作簿中特定工作表的总数。我使用vbTextCompare运算符（比较运算符）来匹配工作表的名称，如果它存在，那么它会计算表的数量。但不幸的是，这不符合字符串。任何帮助？ 工作表名称是按以下顺序BQ1，BQ2，BQ3 .....等等..

Dim tSheets As Long 
Dim WS As Worksheet 

i = 1 
For Each WS In ThisWorkbook.Worksheets 
    If StrComp(Left(WS.Name, 1), "BQ" & i, vbTextCompare) = 0 Then 
     tSheets = tSheets + 1 
     MsgBox WS.Name 
      i = i + 1 
    End If 

Next WS 

Answer 1

这里我使用Left，Right，并Len重构你的代码。

Sub CountBQSheets() 
    Const WSPrefix As String = "BQ" 
    Dim tSheets As Long 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Worksheets 
     If Left(UCase(ws.Name), Len(WSPrefix)) = WSPrefix Then 
      If IsNumeric(Right(ws.Name, Len(ws.Name) - Len(WSPrefix))) Then 
       tSheets = tSheets + 1 
       MsgBox ws.Name 
      End If 
     End If 
    Next ws 
End Sub 

我认为使用集合来收集名字会更有用。

Sub Test_getWSPrefixList() 
    Dim list As Object 
    Set list = getWSPrefixList(ThisWorkbook, "BQ") 

    Debug.Print Join(list.ToArray, ",") 

End Sub 

Function getWSPrefixList(wb As Workbook, WSPrefix As String) As Object 
    Dim list As Object 
    Dim ws As Worksheet 
    Set list = CreateObject("System.Collections.ArrayList") 

    For Each ws In ThisWorkbook.Worksheets 
     If Left(UCase(ws.Name), Len(WSPrefix)) = WSPrefix Then 
      If IsNumeric(Right(ws.Name, Len(ws.Name) - Len(WSPrefix))) Then 
       list.Add ws.Name 
      End If 
     End If 
    Next ws 
    Set getWSPrefixList = list 
End Function 

---

BQ20,BQ19,BQ18,BQ17,BQ16,BQ15,BQ14,BQ13,BQ12,BQ11,BQ10,BQ9,BQ8,BQ7,BQ6,BQ5,BQ4,BQ3,BQ2,BQ1 

Answer 2

两个与您的代码的问题...

1. 您比较第一表格名称的字母与字符串变量“BQ”& i。所以在任何情况下都不会匹配。
2. 第二个问题是，你正在增加我在错误的地方。它应该在IF块之外。

尝试这样的事情......

Dim tSheets As Long 
Dim WS As Worksheet 
Dim i As Integer 
i = 1 
For Each WS In ThisWorkbook.Worksheets 
    If StrComp(WS.Name, "BQ" & i, vbTextCompare) = 0 Then 
     tSheets = tSheets + 1 
     MsgBox WS.Name 
    End If 
    i = i + 1 
Next WS