在Excel中，沒有簡體和繁體文字之間的轉換功能。

但是Word卻有此功能，因此，我們可以在Excel中透過VBA程式碼呼叫Word的繁體和簡體功能，實現在Excel中的簡體繁體轉換的功能。

Sub JFZH()

Dim wd As Word.Application

Set wd = New Word.Application

With wd.Documents.Add .Sections(1).Range.Text = Sheet1.Cells(1, 1).Text " .Sections(1).Range.Select "wd.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0 wd.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0 "繁體轉簡體

Sheet1.Cells(1, 1) = .Sections(1).Range.Text .Close False "簡體轉繁體

End With wd.Quit

Set wd = Nothing End Sub