求助：如何用VBA替换文本

zyf0308 · 发表于 2023-6-5 11:49

本帖最后由 zyf0308 于 2023-6-5 14:59 编辑

如何把B列一组一班、五班改为“一组”，C列集团规划部、制造部改为“集团”

ExcelShitou · 发表于 2023-6-5 14:08

这不是一个录制宏就可以解决的事情么？
Sub Macro1()
Columns("B:B").Select
Selection.Replace What:="一组一班", Replacement:="一组", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Selection.Replace What:="一组五班", Replacement:="一组", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Columns("C:C").Select
Selection.Replace What:="集团规划部", Replacement:="集团", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Selection.Replace What:="集团制造部", Replacement:="集团", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Range("D1").Select
End Sub

ExcelShitou · 发表于 2023-6-5 14:08

Sub Macro1()
Columns("B:B").Select
Selection.Replace What:="一组一班", Replacement:="一组", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Selection.Replace What:="一组五班", Replacement:="一组", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Columns("C:C").Select
Selection.Replace What:="集团规划部", Replacement:="集团", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Selection.Replace What:="集团制造部", Replacement:="集团", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
Range("D1").Select
End Sub

这不是一个录制宏就可以解决的事情么？

		自动登录	找回密码
密码			免费注册