Excel VBA按产品名统计对应图片数量可行性问询

当然可以实现！我帮你写一段简单易懂的VBA代码，配合你的基础VBA知识应该能轻松搞定，而且我会把步骤拆解得明明白白，你跟着做就行～

1. 前期准备 #

• 先确认你的图片文件夹绝对路径，比如C:\我的项目\产品图片库\，注意路径末尾一定要加反斜杠\，避免后续代码出错。
• 打开你的Excel文件，确保产品列表在A列（首列），统计结果会自动写入B列（第二列）。

2. 插入并配置VBA代码 #

• 按下Alt + F11打开VBA编辑器。
• 在左侧的「项目资源管理器」窗口里，找到你的目标工作簿，右键点击它 → 插入 → 模块。
• 把下面的代码复制粘贴到模块中：

Sub CountProductImages()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim productName As String
    Dim imageFolder As String
    Dim imageCount As Integer
    Dim fileName As String
    
    ' --------------------------
    ' 这里需要你修改成自己的图片文件夹路径
    imageFolder = "C:\我的项目\产品图片库\"
    ' --------------------------
    
    ' 设置要操作的工作表，比如你的表名叫「产品列表」，就改成"产品列表"
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 自动找到A列产品列表的最后一行（不用手动数行数）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行产品，统计对应图片数量
    For i = 1 To lastRow
        productName = ws.Cells(i, "A").Value
        imageCount = 0
        
        ' 只有当产品名不为空时才统计
        If productName <> "" Then
            ' 查找以「产品名_」开头的所有文件
            fileName = Dir(imageFolder & productName & "_*")
            Do While fileName <> ""
                imageCount = imageCount + 1
                fileName = Dir ' 继续查找下一个匹配的文件
            Loop
        End If
        
        ' 把统计结果写入B列对应行
        ws.Cells(i, "B").Value = imageCount
    Next i
    
    MsgBox "图片数量统计完成！", vbInformation
End Sub

• 代码里有两处需要你手动修改：
  1. 把imageFolder的值改成你的实际图片文件夹路径；
  2. 如果你的工作表不是Sheet1，把ThisWorkbook.Sheets("Sheet1")里的Sheet1改成你的工作表名称。

3. 运行代码 #

• 回到Excel界面，按下Alt + F8，在弹出的窗口里选择CountProductImages，点击「运行」。
• 运行完成后会弹出提示框，此时B列就会显示每个产品对应的剩余图片数量了，数值为0的就是没有匹配图片的产品，方便你排查。

常见报错排查 #

• 如果报错「路径未找到」：检查imageFolder的路径是否拼写正确，确认文件夹确实存在。
• 如果统计数量不对：确认图片文件名严格符合产品名_数字的格式，比如产品名是「华为Mate60」，图片文件名必须是「华为Mate60_1.jpg」「华为Mate60_2.png」这类。
• 如果B列显示0：要么是该产品没有匹配的图片，要么是文件名格式不符合要求。

内容的提问来源于stack exchange，提问作者Bahadır Yalın