- 帖子
- 142
- 主題
- 18
- 精華
- 0
- 積分
- 160
- 點名
- 179
- 作業系統
- win10 64位元
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣 高雄市
- 註冊時間
- 2015-7-18
- 最後登錄
- 2025-7-4
        
|
本帖最後由 lcctno 於 2015-8-28 08:17 編輯
這是使用錄製巨集的方式得到的
複製B1 然後選擇性貼上格式於A1 其實像我是初學者 我大部分是使用錄製的方式 然後再嘗試縮短程式碼
Sub Macro1()
'
'
' 2015/08/28 錄製的巨集
'
'
Selection.Copy
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub |
|
發表於 2015-8-28 08:15
| 