VBA数组误包含不符合条件元素的技术排查请求

嘿，我一眼就揪出你代码里的问题啦——数组赋值的位置放错了！

你看这段循环逻辑：

If .Cells(i, "I").Text = "In Tool" Then
    m = m + 1
End If
gunarr(m) = .Cells(i, "B")

不管当前行的I列是不是"In Tool"，gunarr(m) = .Cells(i, "B")都会执行。举个例子：假设CountIf统计到有3行符合条件，你把数组定义成1 To 3。当循环到前3个符合条件的行时，m会依次变成1、2、3，此时数组的前3个元素都是正确的。但如果后面还有行（哪怕不符合条件），m会保持3不变，然后这行的B列内容会直接覆盖gunarr(3)——这就是为什么最后一个元素不符合条件的原因！

修复后的代码 #

把数组赋值的语句放进If判断块里，只有当条件满足时才赋值：

Private Sub CheckGun_Click()
 Dim gunarr()
 Dim col As Integer
 Dim m As Integer, i As Integer, g As Long, lastRow As Long ' 显式声明所有局部变量
 m = 0
 With ThisWorkbook.Worksheets("gun inventory")
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' 提前获取最后一行，提升运行效率
    g = Application.WorksheetFunction.CountIf(.Range("I:I"), "In Tool")
    Debug.Print g
    ReDim gunarr(1 To g)
    For i = 2 To lastRow
        If .Cells(i, "I").Value = "In Tool" Then ' 用Value代替Text，避免显示格式干扰
            m = m + 1
            gunarr(m) = .Cells(i, "B").Value ' 仅在条件满足时赋值
        End If
    Next i
 End With
 With ListBox1
    .Font.Size = 10
    .ForeColor = vbBlue
    .ControlTipText = "Tools are in use"
    .ColumnHeads = True
    .ColumnCount = Range("a1").CurrentRegion.Columns.Count
    .ColumnWidths = "80"
    .ListStyle = fmListStyleOption
    .MultiSelect = fmMultiSelectMulti
    .List = gunarr()
 End With
End Sub

额外优化建议 #

1. 用Value代替Text：Text是单元格的显示文本，如果列宽不够导致内容截断，Text会和实际存储的Value不一致，用Value更准确可靠。
2. 显式声明所有变量：哪怕公共变量已定义，局部变量也显式声明，能避免很多隐性错误，也让代码可读性更强。
3. 提前获取最后一行：把lastRow提前计算出来，不用每次循环都重复调用单元格定位方法，小细节能提升代码运行效率。

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