如何删除单元格vba中符号或短语后的文本

Question

我正在尝试编写一个宏，它将循环遍历大量的行（一个特定的列），如果找到一个特定的单词，则删除文本。不幸的是，我没有取得任何进展，并希望社区可以帮助。

该行的一个示例是

“一”lorem ipsum dolor sit amet,consectetur adipiscing elit“六十六”sed do eusmod tempor incidunt ut labore et dolore magna aliqua.

宏完成任务后的预期结果是：

“One”Lorem ipsum dolor sit amet,consectetur adipiscing elit

所以所有以“66y_six”开头和之后的内容都将被删除。

到目前为止我有的代码是：

Sub removeData()

Dim i As Long
Dim lastRow As Long

lastRow = Cells(Rows.Count, "C").End(xlUp).Row

For i = 2 To lastRow

    If InStr(i.Value, "sixty_six") > 0 Then
        i.Value = Left(i.Value, InStr(i.Value, "sixty_six") - 1)
    End If

Next i


End Sub

我得到的错误声明“无效的限定符”，但不确定如何修复它。

事先谢谢你的帮助。

Answer 1

首先，声明一个工作表，这样您就可以在这里对对象进行适当的限定。您还在循环一个无效的范围--请参见循环下面列上所有行的正确方法（假设要更改的字符串在列C中）

假设值“66y_six”将出现一次或根本不出现，则可以使用split将字符串转换为两个元素，其中：

• 第一个元素是“66y_six”
之前的所有元素
• 第二个元素是“66y_six”
之后（包括）的所有元素

如果字符串中没有出现“66y_six”，则整个字符串将保留在第一个元素中

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")

Dim i As Long, lr As Long
Dim arr

lr = ws.Range("C" & ws.Rows.Count).End(xlUp).Row

For i = 2 To lr
    arr = Split(ws.Range("C" & i), """sixty_six""")

    ws.Range("C" & i) = arr(0)

    arr = ""
Next i

只需使用搜索和替换(CTRL+F)并使用通配符搜索“66y_six”*和替换（一个空字符串）即可避免VBA。

突出显示目标列并选择全部替换。

@Bigben用于调用非Excel解决方案