首先search并replace随机单元格文本：

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

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

所有这些文本可以改变每行，除了事实：对我意味着什么。

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

接下来，我将添加另一个单元格的内容到最后。 我认为这将是一个简单的步骤，我很可能不费吹灰之力就可以解决这个问题。

我有这个代码在每一行while循环。 所以代码一次只查看一行。

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

Answer 1

只需使用查找和replace，不需要VBA或公式。

1. select包含您需要修改的数据的列
2. 按Ctrl h打开“查找和replace”对话框。
3. 在“查找内容：”字段中input:*
4. 在“replace为：”字段中，保留空白
5. 点击全部replace

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

 Sub tgr() Columns("A").Replace ":*", "" End Sub 

编辑：根据要求我添加公式解决scheme。 在单元格B1中复制下来：

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

Answer 2

试试这个小macros：

 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