基于两列信息创建工作表的VBA代码无输出问题排查

你的VBA代码无法创建工作表，核心问题如下：

• 未指定数据工作表：代码中Cells、Rows.Count等操作默认使用当前活动工作表，若数据不在活动表内，会遍历错误的行，导致找不到匹配条件。
• 循环起始行错误：循环从i=1开始，若表格第一行是表头（无实际数据），会直接跳过包含目标字符串的有效数据行，条件永远不触发。
• 字符串匹配严格性问题：单元格值可能存在前后空格、大小写差异（比如"GBP "而非"GBP"），严格的=匹配会失效。

修复后的代码 #

Sub CreateSheets()
    Dim newSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sheetExists As Boolean
    Dim ws As Worksheet
    Dim dataWs As Worksheet ' 指定数据所在工作表
    
    ' 替换为你的数据实际所在工作表名称（比如"Sheet1"）
    Set dataWs = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据列A的最后一行（基于指定工作表）
    lastRow = dataWs.Cells(dataWs.Rows.Count, "A").End(xlUp).Row
    
    ' 检查并创建B2B GBP工作表
    sheetExists = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = "B2B GBP" Then
            sheetExists = True
            Exit For
        End If
    Next ws
    If Not sheetExists Then
        ' 从第2行开始遍历（假设第1行是表头，可根据实际调整）
        For i = 2 To lastRow
            ' 去除空格+统一大小写，避免匹配误差
            If UCase(Trim(dataWs.Cells(i, "K").Value)) = "GBP" And _
               UCase(Trim(dataWs.Cells(i, "G").Value)) = "OK - B2B" Then
                Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                newSheet.Name = "B2B GBP"
                Exit For
            End If
        Next i
    End If
    
    ' 检查并创建IMPORT GBP工作表
    sheetExists = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = "IMPORT GBP" Then
            sheetExists = True
            Exit For
        End If
    Next ws
    If Not sheetExists Then
        For i = 2 To lastRow
            If UCase(Trim(dataWs.Cells(i, "K").Value)) = "GBP" And _
               UCase(Trim(dataWs.Cells(i, "G").Value)) = "OK - IMPORTACAO" Then
                Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                newSheet.Name = "IMPORT GBP"
                Exit For
            End If
        Next i
    End If
End Sub

关键修改说明 #

1. 绑定数据工作表：新增dataWs变量指定数据所在表，确保所有单元格操作都针对正确的工作表。
2. 调整循环起始行：改为从i=2开始（若表头行数不同可自行修改），避免跳过有效数据。
3. 优化字符串匹配：用Trim()清除单元格值前后空格，UCase()统一转为大写，解决空格和大小写导致的匹配失败问题。

内容的提问来源于stack exchange，提问作者Martino Lamaison de Souza