✔ 最佳答案
用公式我唔識做,用vba 幫下手啦!先將要處理的工作表作備份才試,以防萬一。 打開工作表,按 Alt + F11 , 打開 vba 視窗Double-click 右手邊的 ThisWorkbook , 將以下的 VBA 複製到左邊空白的地方, ****************************************************Sub PIAO_colour()x = Len(Range("a1"))Y = Range("b65536").End(xlUp).Row Range("C1") = Range("A1") & " " & Range("B1")Range("C1").SelectSelection.AutoFill Destination:=Range("C1:C" & Y)DoWith Selection .Font.ColorIndex = 5 .Characters(Start:=1, Length:=x).Font.ColorIndex = 3End With ActiveCell.Offset(1, 0).Select Loop Until IsEmpty(ActiveCell) End Sub****************************************************** 將 CURSOR放在 VBA 中任意一點, 按 “Play” ok
2013-06-05 17:20:42 補充:
Y = Range("b65536").End(xlUp).Row ----- 刪除這句
Range("C1") = Range("A1") & " " & Range("B1") ------ 若A1 & B1 中間沒有 space 則將這句改成 Range("C1") = Range("A1") & Range("B1")
Selection.AutoFill Destination:=Range("C1:C" & Y) ---------- 將這句改成
Selection.AutoFill Destination:=Range("C1:C100" )
2013-06-06 10:24:29 補充:
我的能力做不到,
黔驢之技, 技之止已