1

我有很多行（100K+）来搜索和修改内容。

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

除了 : 对我来说意味着什么之外，所有这些文本都可以每行更改。

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

接下来，我将在末尾添加另一个单元格的内容。我认为这将是一个简单的步骤，我很可能不费吹灰之力就能弄清楚。

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

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

4

2 回答 2

3

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

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

Tigeravatar 查找和替换

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

Sub tgr()

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

End Sub

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

=LEFT(A1,FIND(":",A1&":")-1)
于 2013-09-17T15:24:21.760 回答
0

试试这个小宏：

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
于 2013-09-17T15:14:53.750 回答