如何用Excel VBA按换行符筛选单元格内容，移除Complete标记项？

方法一：手动拆分筛选法 #

• 替换换行符：按Ctrl+H打开替换框，查找栏输入Ctrl+J（代表换行符），替换为|（或其他无冲突符号），点击「全部替换」。
• 拆分内容：选中目标列，点击「数据」选项卡→「分列」，按刚才的分隔符拆分到多行。
• 筛选保留：筛选出不包含Complete的行，复制到新区域。
• 合并回单元格（可选）：用&拼接或PHONETIC函数合并结果。

方法二：VBA自定义函数（批量高效） #

适合批量处理，无需手动拆分：

1. 按Alt+F11打开VBA编辑器，插入新模块。
2. 粘贴以下代码：

Function RemoveComplete(inputText As String) As String
    Dim arr() As String, item As Variant, result As String
    arr = Split(inputText, vbLf)
    For Each item In arr
        If InStr(item, "Complete") = 0 Then
            result = result & IIf(result <> "", vbLf, "") & item
        End If
    Next
    RemoveComplete = result
End Function

3. 返回Excel，在空白单元格输入=RemoveComplete(A1)（A1为待处理单元格），下拉填充即可自动移除含Complete的项。

方法三：传统公式组合（无VBA） #

如果零件号本身不含Complete字样，可直接用替换公式：

=TRIM(SUBSTITUTE(SUBSTITUTE(A1,"Complete",""),CHAR(10)&CHAR(10),CHAR(10)))

若需更严谨匹配整行状态，可结合MID、SEARCH函数嵌套，但公式会较冗长，优先推荐前两种方法。

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