請問execl 2000取代後，順道改變取代字型大小嗎

[ed001227]

請問execl 2000取代後，可以全部改變字型呢?

ex: execl 2003好像就有此功能，不知execl 2000有嗎?



謝謝您的熱心回覆




假設EXECL 2000無此功能的話，請問巨集大概要如何寫呢?

EX: 想要把EXECL中大潤發(黑色字體)→家樂福(紅色+粗體字體)

謝謝還是謝謝

[cinta3344]

偷空回一下，高手應該有更簡潔的寫法～～

Sub TEST()
  Dim myRng As Range
  Dim c As Range
  Set myRng = ActiveSheet.UsedRange
  myRng.Replace What:="大潤發", Replacement:="家樂福", LookAt:=xlPart  'xlPart為部分字串符合，xlWhole為完全符合
  For Each c In myRng
    If InStr(1, c, "家樂福") Then
      With c.Font
       .Name = "標楷體"
       .Color = vbRed
       .Bold = True
      End With
    End If
  Next
End Sub