Sub Macro2()

"

" Macro2 Macro

"

"

Cells.Replace What:="1", Replacement:="玉米", LookAt:=xlWhole, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="2", Replacement:="蓮子", LookAt:=xlWhole, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="3", Replacement:="大豆", LookAt:=xlWhole, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub

這是我錄製的1、2、3，可以向下複製，並修改一下里面的內容。