返回列表 上一主題 發帖

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

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-6-21 19:30 | 只看該作者

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

小弟我有一檔案，想要空白欄位可以自動複製與上一筆資料相同的欄位不知該怎麼做呢?

例如附件中的圖片，左邊的為原始檔案，右邊為我想自動複製後的結果，因為資料量很大

是否有更簡便的方式複製呢?

圖片2.jpg (57.56 KB)

圖片2.jpg

收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

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 
4#
發表於 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

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
3#
發表於 2011-6-22 08:03 | 只看該作者
真的是太感謝大大了~這樣我就不用慢慢抓資料了
真是好用的方式
80 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-6-21 20:06 | 只看該作者
f5~特殊~空格~確定。鍵入=號，鍵入↑鍵，ctrl+enter

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題