Excel 如果B列的所有单元格中的文本字符串与a列中任何单元格中的文本字符串匹配，则删除B列所有单元格中的所有文本字符串
我在Excel中有两列，所有单元格都包含文本字符串。A列包含8000个单元格，B列包含3000个单元格。我需要检查B列中的每个单元格，看看它是否包含单元格A1中的字符串。如果有，我需要删除该文本，保留字符串的其余部分。然后我需要对A2、A3等单元做同样的事情，一直到A8000单元。这将永远需要手动完成，我知道这对VBA程序员来说应该很容易，但我是一个完全的新手，在哪里开始还很困难。谢谢。起初，我认为应该进行排序（每列）并对列进行遍历（主/事务样式）。然而，我注意到您正在谈论子字符串，所以排序顺序将不会有帮助。 唯一的方法是将一个循环嵌套在另一个循环中，并检查所有8000个单元3000次Excel 如果B列的所有单元格中的文本字符串与a列中任何单元格中的文本字符串匹配，则删除B列所有单元格中的所有文本字符串,excel,vba,Excel,Vba,我在Excel中有两列，所有单元格都包含文本字符串。A列包含8000个单元格，B列包含3000个单元格。我需要检查B列中的每个单元格，看看它是否包含单元格A1中的字符串。如果有，我需要删除该文本，保留字符串的其余部分。然后我需要对A2、A3等单元做同样的事情，一直到A8000单元。这将永远需要手动完成，我知道这对VBA程序员来说应该很容易，但我是一个完全的新手，在哪里开始还很困难。谢谢。起初，我认为应该进行排序（每列）并对列进行遍历（主/事务样式）。然而，我注意到您正在谈论子字符串，所以排序顺序
dim c1 as integer, c2 as integer
for c2=1 to 3000
for c1=1 to 8000
cells(c1,1).value = Replace(cells(c1,1).value, cells(c2,2).value, "")
next c2
next c1
PS：如果单元格混淆，您可以使用范围-将
单元格（c1,1）范围（“A”&c1）单元格（c2,2）范围（“B”&c2）啊，但现在我明白了，你需要“循环”这个。我必须重新考虑我的回答。这里有一个使用批量替换的简单方法
Sub Sample()
Dim ws As Worksheet
Dim lRow As Long
Set ws = Sheets("Sheet1")
With ws
lRow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 1 To lRow
.Columns(2).Replace What:=.Range("A" & i).Value, _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Next
End With
End Sub
不需要VBA。只需在C列中填写以下公式：
=VLOOKUP（$B1，A:A，1,0）#N/A我相信会有人来发布与上述内容相当的VBA。有一种比Wolf5370建议的更快的方法。您可以循环遍历A列中的所有单元格，并替换B列中找到的值 像这样的事情应该让你开始
Option Explicit
Sub Replace()
Dim wks as Worksheet
Set wks = Worksheet("Shee1") 'change to suit your needs
With wks
Dim rngLook as Range, cel as Range
Set rngLook = Intersect(.UsedRange,.UsedRange.Offset(1),.COlumns(1))
For each cel in RngLook
.Columns(2).Replace cel.Value, "", xlPart
Next
End With
End Sub
我理解您的方法，但不知道如何编写代码。我尝试使用宏记录器生成基本代码，同时从一列和单元格移动到另一列和单元格，搜索子字符串并将其替换为零，等等，但效果不好。虽然这可能有效，但嵌套循环是一种非常缓慢的方法。请参阅下面我和@SiddharthRout的答案。此外，我认为这是一种倒退，我认为您需要
单元格（c2,2）。Value=Replace（单元格（c2,2）。Value，单元格（c1,1）。Value，“””列（2）