返回列表 上一主題 發帖

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

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-12-20 19:59 | 只看該作者

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

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

105報價請款進度表.rar (17.64 KB)
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
2#
發表於 2016-12-27 21:15 | 只看該作者
回復 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

為什麼無法將格式複製....
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題