[發問] 輸入下一格複製上一格的格式(二個表格名稱)

kkooo15

輸入下一格複製上一格的格式
我發現格式會複製..但底色不會複製
因為表有二個名稱.只會前面動後面不動

105報價請款進度表.rar (17.64 KB)

下載次數: 11

2016-12-20 19:59

kkooo15

回復 1# kkooo15


Sub 巨集1()

    Range("施工[[#Headers],[報價日期]]").Select
    Selection.End(xlDown).Select
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.End(xlDown).Select
End Sub

為什麼無法將格式複製....