Excel VBA实现两列值匹配：忽略前导零填充第三列

原VBA代码失效的核心原因是没处理C列图片名里SKU的前置零——直接用字符串对比的话，带前置零的SKU（比如00123）和A列无前置零的SKU（123）完全不匹配，自然找不到对应图片名。

Option Explicit

Public Sub MatchSKUWithImage()
    Dim ws As Worksheet, arr() As Variant
    Dim r As Long, c As Long
    Dim skuValue As Double, imgSkuValue As Double
    Dim imgName As String, imgPrefix As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 读取A2到最后一行的A:C数据到数组，提升效率
    arr = ws.Range("A2:C" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    
    For r = LBound(arr, 1) To UBound(arr, 1)
        ' 跳过A列空行
        If arr(r, 1) <> "" Then
            skuValue = CDbl(arr(r, 1)) ' 转数值自动忽略格式问题
            For c = LBound(arr, 1) To UBound(arr, 1)
                imgName = arr(c, 3)
                If imgName <> "" Then
                    ' 按优先级提取图片名里的SKU前缀
                    Select Case True
                        Case Right$(imgName, 9) = "-ROOM.jpg"
                            imgPrefix = Left$(imgName, Len(imgName) - 9)
                        Case Right$(imgName, 6) = "-5.jpg"
                            imgPrefix = Left$(imgName, Len(imgName) - 6)
                        Case Right$(imgName, 6) = "-6.jpg"
                            imgPrefix = Left$(imgName, Len(imgName) - 6)
                        Case Else
                            imgPrefix = "" ' 不匹配后缀的直接跳过
                    End Select
                    
                    ' 把前缀转数值，和A列SKU做数值匹配（自动忽略前置零）
                    If imgPrefix <> "" Then
                        On Error Resume Next ' 防止非数字前缀报错
                        imgSkuValue = CDbl(imgPrefix)
                        On Error GoTo 0
                        If imgSkuValue = skuValue Then
                            arr(r, 2) = imgName
                            Exit For ' 找到第一个匹配项就停，保证优先级
                        End If
                    End If
                End If
            Next c
        End If
    Next r
    
    ' 把数组结果写回工作表
    ws.Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

• 前置零处理：将A列SKU和图片前缀都转成Double数值类型，自动忽略前置零，靠数值匹配替代字符串匹配，解决了前置零的问题。
• 容错机制：加了非数字前缀的错误处理，避免遇到无效图片名时代码崩溃。
• 逻辑优化：先按优先级识别后缀提取前缀，再统一做匹配，代码更清晰，同时保留了你想要的匹配优先级（优先-ROOM.jpg，再-5.jpg、-6.jpg）。
• 空值过滤：跳过A列或C列的空行，减少无效循环。

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