vba - 从单元格中删除字符的最快方法

Question

为每个单元格删除字符的最快方法是什么？我有 300k 行，循环每个单元格并不理想。我尝试将文本分列，但我需要知道每个单元格内可能有多少个符号。有一个更好的方法吗？

这是我循环 300,000 个单元格的内容。这需要太多时间。

For Each destineCell In destinRange
    cellVal = destineCell.Value
    If (InStr(cellVal, ", ")) Then
        removed = Left(cellVal, InStr(cellVal, ", ") - 1)
        ActiveCell.Value = removed & " "
    End If
    ActiveCell.Offset(1, 0).Select
Next destineCell

[[更新]]
这是示例数据的样子..

New York, NY, USA
Rome, Italy - Tier 1 City

数据本身会有所不同。有时它会有一个逗号、一个破折号或两者都有。

Answer 1

What is the fastest way to remove characters for each cell? I have 300k rows, looping every single cell is not ideal. I tried text to column but i would need to know how many symbols there could be within each cell. Is there a better way to do this?

@pnuts basically remove everything after the comma or - – JamAndJammies 42 mins ago

@pnuts after the first comma/dash – JamAndJammies 37 mins ago

根据您的问题和您在评论中所说的，不使用 VBA 的最简单和最快的方法是

设置一个您认为不会出现在数据中的单个字母分隔符。假设它是| .或者你可以选择一些其他的特殊字符？我们称之为 关键字 .

按 Ctrl + H 调出查找和替换对话框并进行替换。查找 ,并将其替换为 关键字 .同样替换-与 关键字 .

做Text To columns并将其拆分到 关键字 .

保留第一列并删除其余列