Re: [VBA ] 這個寫法為何無法改變字體顏色?
: 這樣寫是希望一開時就把字體顏色粗細定義好，需要時就直接套用不用一直.font呼叫
: -----
: Sent from JPTT on my LGE LG-H962.
推文太麻煩了，乾脆重打一篇
Sub CopyFormat()
Dim LR As Intenger
With Sheets("工作表1")
LR=.Cells(1048576,"B").End(xlUP).Row
Cells(1,"A").Copy
Range(Cells(1,"B"),Cells(LR,"B")).PasteSpecial _
Paste:=xlPasteFormats
Application.CutCopyMode=False
End With
End Sub
備註：LR是個數值參數，他會去找出B欄的最後一行，
功能類似你在Excel內按Ctrl+方向鍵，
這樣的方式可以把你迴圈的部分拿掉，加快整個程式的運行速度，
另外，PasteSpecial的方式則是你Excel在貼上時的「選擇性貼上」的功能
會直接將A1的儲存格格式貼到B欄的選取範圍中，
以上，希望有幫助到你~
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.135.50.86
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1536549413.A.9D0.html
推
09/11 16:16,
6年前
, 1F
09/11 16:16, 1F
→
09/11 16:16,
6年前
, 2F
09/11 16:16, 2F
→
09/11 16:16,
6年前
, 3F
09/11 16:16, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
