Excel简单VBA宏无法按预期运行，请求技术排查帮助

核心问题定位 #

原代码未按需求实现「识别B列包含‘bug’的单元格」，而是做了精确匹配（= "bug"）——只有当B列单元格内容完全等于"bug"时才会触发后续逻辑，这是C列始终为空的主要原因。此外，代码未处理大小写差异，比如单元格内容是"Bug"、"BUG"或"bugfix"这类包含bug的文本时，原代码无法识别。

修正后的代码 #

Sub Macro_test()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim checkValue As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取B列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRow
        ' 判断B列单元格是否包含"bug"，忽略大小写
        If InStr(1, ws.Cells(i, "B").Value, "bug", vbTextCompare) > 0 Then
            checkValue = ws.Cells(i, "A").Value
            ' 忽略大小写判断A列内容
            If InStr(1, checkValue, "mili", vbTextCompare) > 0 Then
                ws.Cells(i, "C").Value = "Success"
            ElseIf InStr(1, checkValue, "cent", vbTextCompare) > 0 Or _
                   InStr(1, checkValue, "nano", vbTextCompare) > 0 Then
                ws.Cells(i, "C").Value = "Success2"
            End If
        End If
    Next i
End Sub

关键修改说明 #

• 将ws.Cells(i, "B").Value = "bug"替换为InStr(1, ws.Cells(i, "B").Value, "bug", vbTextCompare) > 0：
  • InStr函数用于查找字符串中是否包含指定子串，返回子串的起始位置，结果大于0表示存在目标子串。
  • vbTextCompare参数表示忽略大小写，避免因大小写差异导致匹配失败。
• 对A列的判断也添加了vbTextCompare，确保"mili"、"cent"、"nano"的大小写不影响匹配结果。
• 用下划线_拆分过长的ElseIf语句，提升代码可读性。

额外检查项 #

如果修改后仍无效果，可排查以下内容：

• 确认当前工作表名称确实是Sheet1，若名称不同，修改Set ws = ThisWorkbook.Worksheets("Sheet1")中的工作表名称。
• 检查B列是否真的存在包含"bug"的单元格，避免数据为空或拼写错误。
• 确保C列单元格未被保护，若工作表有保护设置，需先取消保护再运行宏。

内容的提问来源于stack exchange，提问作者FieldsofGreen