excel中一个单元格删除对应多个单元格里的内容。举个例子,如下:

2025-03-11 06:42:29
推荐回答(3个)
回答1:

用Sheet2表中查找的A列对应的值,批量用B列对应的值替换
Sub jnsbo1()
Sheets("Sheet2").Select
Dim row1&
row1 = Range("A65536").End(xlUp).row

Sheets("Sheet1").Select

For x = 1 To row1
Cells.Replace What:=Range("Sheet2!A" & x).Value, Replacement:=Range("Sheet2!B" & x).Value, LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Next x
End Sub

回答2:

将需要替换的字段放到工作表“查找字段”的“A”列,然后执行如下代码。

Sub 替换()
Row_end = Sheets("查找字段").[A65536].End(xlUp).Row

For i = 1 To Row_end

Cells.Replace What:=Sheets("查找字段").Cells(i, 1), Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Next

End Sub

回答3:

EXCEL中,也可以查找---视图---替换---空着----全部替换。表中的“视图”就都没有了。