題主資訊不全，難以精準判斷：1、excel文件字尾名是csv的另存為xls2、excel文件字尾名是xls的另存為另存為xlsx3、以上都無效，還有可能使用了過多的單元格樣式或者vba程式碼限制了修改格式，建議你把文件上傳網盤，把下載連結發上來，一看便知

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count = 1 And Target.Column = 11 Then

With Target.Font "程式碼2015070310-02開始，功能將滑鼠選中的連結調整連結格式

.Name = "Tahoma"

.Size = 9

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleSingle

.ThemeColor = xlThemeColorHyperlink

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

With Target.Font

.Name = "Tahoma"

.Size = 9

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleSingle

.ThemeColor = xlThemeColorHyperlink

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With "程式碼2015070310-02結束

End If

End Sub

雙擊左邊列表中你要處理的表格，將程式碼貼進去。