首先搜索并替换随机单元格文本：

Question

我有一大堆行（100K +）来搜索和修改内容。

例如，单元格包含类似的文本，如DGC9610411：DB：10：82

所有这些文本都可以每行更改，但以下事实：对我来说意味着什么。

在这个和每隔一行中，我需要删除第一行：以及之后的所有文本，以便单元格看起来像这样DGC9610411

接下来我将添加另一个单元格的内容到最后。我认为这将是一个轻松的步骤，我很可能没有太多努力就能解决这个问题。

我在每行的while循环中都有这段代码。所以代码一次只看一行。

我搜索过，但似乎每个人都有不同的需求。

Answer 1

只需使用查找和替换，不需要vba或公式。

1. 选择包含您需要修改的数据的列
2. 按 Ctrl h 打开“查找和替换”对话框。
3. 在“查找内容：”字段中，键入:*
4. 在“替换为：”字段中，将其留空
5. 点击全部替换



编辑：如果它必须是VBA，这个简单的宏将完成同样的事情。请务必将A更改为您的实际专栏信。

Sub tgr()

    Columns("A").Replace ":*", ""

End Sub

编辑：根据要求，我正在添加一个公式解决方案。在单元格B1中并向下复制：

=LEFT(A1,FIND(":",A1&":")-1)

Answer 2

试试这个小宏：

Sub colonoscopy()
    Dim c As String
    Dim r As Range, I As Long
    For Each r In ActiveSheet.UsedRange
        v = r.Value
        I = InStr(1, v, ":")
        If I > 0 Then
            r.Value = Mid(v, 1, I - 1)
        End If
    Next r
End Sub