如何基于外部文件/工作表条件筛选行并处理SKU关联图片？

方法一：Power Query（适合大型数据集，高效自动化） #

1. 将主表（SKU+图片列表）和需移除图片的表分别导入Power Query
2. 对主表的「图片列表」列拆分：选中该列 → 点击「拆分列」→ 按实际使用的分隔符（如逗号、空格）拆分成行
3. 将拆分后的主表与需移除图片的表做左外部合并，匹配条件选择图片列
4. 筛选合并结果，只保留合并列不为空的行（即包含需移除图片的行）
5. 按SKU分组，用原分隔符将剩余图片重新合并成列表
6. 将处理完成的数据加载回Excel

方法二：Excel公式+手动操作（适合快速处理） #

假设：

• 主表SKU在A列，图片列表在B列
• 需移除的图片在Sheet2的A列

1. 新增辅助列C，输入公式判断该行是否包含需移除图片：

   =SUMPRODUCT(--ISNUMBER(SEARCH(Sheet2!$A$1:$A$100,B2)))>0
   

   （注：将Sheet2!$A$1:$A$100替换为你实际的需移除图片范围）
2. 筛选C列为TRUE的行（这些是需要保留的行）
3. 新增辅助列D，输入公式移除目标图片：

   =TEXTJOIN(",",TRUE,FILTERXML("<t><s>"&SUBSTITUTE(B2,",","</s><s>")&"</s></t>","//s[not(contains('"&TEXTJOIN(",",TRUE,Sheet2!$A$1:$A$100)&"',.,))]"))
   

   （注：把公式中的逗号替换为你实际的图片分隔符，范围同步调整）
4. 复制D列的值，粘贴回B列，最后删除辅助列C、D

方法三：VBA宏（适合重复批量操作） #

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码（根据实际表名、列名调整）：

Sub CleanImageList()
    Dim mainWS As Worksheet, removeWS As Worksheet
    Dim lastRowMain As Long, lastRowRemove As Long
    Dim i As Long, j As Long
    Dim imgArr As Variant, removeArr As Variant
    Dim newImgList As String
    
    ' 设置工作表，替换为你的实际表名
    Set mainWS = ThisWorkbook.Sheets("主表")
    Set removeWS = ThisWorkbook.Sheets("需移除图片")
    
    lastRowMain = mainWS.Cells(mainWS.Rows.Count, "A").End(xlUp).Row
    lastRowRemove = removeWS.Cells(removeWS.Rows.Count, "A").End(xlUp).Row
    removeArr = removeWS.Range("A1:A" & lastRowRemove).Value
    
    ' 从下往上遍历，避免删除行导致索引混乱
    For i = lastRowMain To 1 Step -1
        imgArr = Split(mainWS.Cells(i, "B").Value, ",") ' 替换为你的图片分隔符
        newImgList = ""
        hasRemove = False
        
        For j = LBound(imgArr) To UBound(imgArr)
            ' 检查当前图片是否在移除列表中
            If Not IsError(Application.Match(Trim(imgArr(j)), removeArr, 0)) Then
                hasRemove = True
            Else
                If newImgList = "" Then
                    newImgList = Trim(imgArr(j))
                Else
                    newImgList = newImgList & "," & Trim(imgArr(j))
                End If
            End If
        Next j
        
        If hasRemove Then
            ' 更新图片列表
            mainWS.Cells(i, "B").Value = newImgList
        Else
            ' 删除无匹配移除图片的行
            mainWS.Rows(i).Delete
        End If
    Next i
End Sub

运行宏即可完成批量处理

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