Question

excel如何用宏替换某列中的几个内容

如何用宏将ALL列中beijing替换为北京、shanghai替换为上海、xinjiang替换为新疆、空白的替换为江西

Answer 1

虽然已经有推荐答案了，但是我也写一个吧(个人觉得我写得好一些，O(∩_∩)O~)：
Sub C_replace()
Dim pc(), pe(), c As Range, i%
pc = Array("北京", "上海", "新疆", "江西")
pe = Array("beijing", "shanghai", "xinjiang", "")
For Each c In Range([H2], Cells([h65536].End(xlUp).Row, 8))
For i = 0 To 3
If c = pe(i) Then c = pc(i)
Next
Next
End Sub

Answer 2

Sub test()
Application.ScreenUpdating = False

MaxLine = [H65536].End(xlUp).Row
For i = 2 To MaxLine
temp = Application.Cells(i, 8).Value
Select Case UCase(temp)
Case "BEIJING"
tmp = "北京"
Case "XINGJIANG"
tmp = "新疆"
Case ""
tmp = "江西"
Case "SHANGHAI"
tmp = "上海"
‘..................

End Select
Application.Cells(CurLine, 8) = tmp
Next CurLine
Exit Sub
Application.ScreenUpdating = True
End Sub

Answer 3

sub ti()
for i = 1 to 21

if cells(i,8)="beijing" then cells(i,8)="北京"
if cells(i,8)="shanghai" then cells(i,8)="上海"
if cells(i,8)="xinjiang" then cells(i,8)="新疆"
if cells(i,8)="" then cells(i,8)="江西"
next

end sub