返回列表 上一主題 發帖

[發問] 如何自動複製資料

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-6-22 10:45 | 顯示全部帖子
回復 1# dragonbx
根據圖片內容 簡易做的擴充巨集
  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. '
  5. ' 快速鍵: Ctrl+e
  6. '
  7.     Range("A3:A7").Select
  8.     Selection.FormulaR1C1 = "=R[-1]C"
  9.     Range("A3:A7").Select
  10.     Selection.AutoFill Destination:=Range("A3:K7"), Type:=xlFillDefault
  11.     Range("A3:K7").Select
  12.     Range("A9:A13").Select
  13.     ActiveCell.FormulaR1C1 = "=R[-1]C"
  14.     Range("A9:A13").Select
  15.     Selection.FormulaR1C1 = "=R[-1]C"
  16.     Selection.AutoFill Destination:=Range("A9:K13"), Type:=xlFillDefault
  17.     Range("A9:K13").Select
  18.     Range("A15:A20").Select
  19.     Selection.FormulaR1C1 = "=R[-1]C"
  20.     Selection.AutoFill Destination:=Range("A15:K20"), Type:=xlFillDefault
  21.     Range("A15:K20").Select
  22. End Sub
複製代碼

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題