如果 Excel 中包含，则删除单元格中的行

【问题标题】：Delete line in a cell if contains in Excel如果 Excel 中包含，则删除单元格中的行
【发布时间】：2020-12-13 11:08:27
【问题描述】：

大家早上好，

关于#excel 的简单问题，但无法弄清楚。在单个单元格内，我需要一个#vba 来删除具有给定字符串的行（它们用换行符相互分隔）。

在我的示例中，我需要删除以分号“：”结尾的行

输入

aaaaaaaaa:11111

bbbbbbbbb:222222222

cccccc:

dddddddddddddddd:33

输出

aaaaaaaaa:11111

bbbbbbbbb:222222222

dddddddddddddddd:33

非常感谢您的帮助，聚色

【问题讨论】：

标签： excel vba text

【解决方案1】：

试试下面的代码。假设您的示例文本位于 A 单元格中。

Sub DelLine()
Dim strSplit
Dim Result As String

strSplit = Split(Range("A1"), Chr(10))

    For i = LBound(strSplit) To UBound(strSplit)
        If Right(Trim(strSplit(i)), 1) <> ":" Then
            Result = Result & strSplit(i) & Chr(10)
        End If
    Next

Range("B1") = Result
End Sub

【讨论】：

嗨哈伦！感谢您的回答，这确实正是我所需要的。但是不能为列 A 中的每个单元格循环它。我应该添加什么？干杯