我是 VBA 编码的新手,正在尝试在 N 列中搜索名称并替换 O 列中的值。
我试图修改此代码但无法让它替换旁边的单元格。
Columns("N").Replace What:="27", _
Replacement:="AARON", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
答案1
您可以使用此 VBA 代码在特定列中查找值:
Columns("N:N").Select
Set cell = Selection.Find(What:="YourName", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
这可以用来替换:
Columns("O").Replace What:="Your Old Value", Replacement:="New Value", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
怎么运行的:
- 这两个代码都可以
Standard Subroutine
与工作表一起使用。 Find & Replace
根据您的选择在代码中替换值。