Board logo

標題: [發問] 如何自動複製資料 [打印本頁]
作者: dragonbx    時間: 2011-6-21 19:30     標題: 如何自動複製資料

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

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

是否有更簡便的方式複製呢?
作者: oobird    時間: 2011-6-21 20:06

f5~特殊~空格~確定。鍵入=號，鍵入↑鍵，ctrl+enter
作者: dragonbx    時間: 2011-6-22 08:03

真的是太感謝大大了~這樣我就不用慢慢抓資料了
真是好用的方式
作者: mark15jill    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)