求VBA代码：查找L列中以2347开头的单元格并返回地址

咱们先梳理下原代码里的几个小问题，再给出完整可运行的代码：

• 原代码里MyVal的定义和赋值方式不对：LEFT(c.Value,4) = "2347"是一个布尔判断（真/假），不能直接赋值给Integer类型的变量，而且我们不需要提前定义这个变量，直接在循环里判断就行。
• 缺少收集符合条件单元格地址的逻辑，也没有完成If语句的后续处理。
• 没考虑单元格内容长度不足4位的情况，这会导致Left函数报错。

下面是完整的修正代码：

Sub Find2347Cells()
    Dim lastRow As Long
    Dim targetCell As Range
    Dim matchedAddresses As String
    
    ' 获取L列最后一行的行号
    lastRow = Cells(Rows.Count, "L").End(xlUp).Row
    
    ' 遍历L列从第2行到最后一行的单元格
    For Each targetCell In Range("L2:L" & lastRow)
        ' 先判断单元格内容长度至少4位，再检查前缀是否为"2347"
        If Len(targetCell.Value) >= 4 And Left(targetCell.Value, 4) = "2347" Then
            ' 把符合条件的单元格地址追加到字符串里
            If matchedAddresses = "" Then
                matchedAddresses = targetCell.Address(False, False) ' 不带$的地址格式，比如L3500
            Else
                matchedAddresses = matchedAddresses & ", " & targetCell.Address(False, False)
            End If
        End If
    Next targetCell
    
    ' 根据结果显示MsgBox
    If matchedAddresses <> "" Then
        MsgBox "Cells " & matchedAddresses & " have values starting with ""2347""", vbInformation, "匹配结果"
    Else
        MsgBox "No cells in column L start with ""2347""", vbInformation, "无匹配项"
    End If
End Sub

代码关键部分解释： #

1. 获取最后一行：lastRow = Cells(Rows.Count, "L").End(xlUp).Row 确保我们只遍历有内容的单元格，不会浪费资源在空行上。
2. 前缀判断逻辑：Len(targetCell.Value) >= 4 先过滤掉内容太短的单元格，避免Left函数抛出错误；然后用Left(targetCell.Value, 4) = "2347"检查前缀。
3. 收集地址：用matchedAddresses字符串逐步拼接符合条件的单元格地址，格式更清晰。
4. 结果展示：如果找到匹配项，就显示所有地址；如果没找到，给出友好提示。

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