返回列表 上一主題 發帖

[發問] 請問如何撰寫VBA，使有值的欄位複製到特定工作表且新的資料覆寫(已解決)

sax868

帖子
37 
主題
9 
精華
0 
積分
61 
點名
0  
作業系統
Windows7 
軟體版本
office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-4-26 
最後登錄
2014-7-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-23 16:48 | 顯示全部帖子

[發問] 請問如何撰寫VBA，使有值的欄位複製到特定工作表且新的資料覆寫(已解決)

本帖最後由 sax868 於 2012-5-24 10:28 編輯

Book11.zip (17.04 KB)
  1. Sub Macro6()
  2. '
  3. '
  4.     Sheets("Updated Data").Select
  5.     Range("BC2").Select
  6.     ActiveCell.FormulaR1C1 = "=IF(RC[-13]=RC[-1],1,0)"
  7.     Range("BC2").Select
  8.     Selection.Copy
  9.     Range("BC3").Select
  10.     Range(Selection, Selection.End(xlDown)).Select
  11.     ActiveSheet.Paste
  12.     Cells.Select
  13.     Application.CutCopyMode = False
  14.     Selection.AutoFilter
  15.     ActiveSheet.Range("$A$1:$BC$491").AutoFilter Field:=55, Criteria1:="0"
  16.     ActiveWindow.SmallScroll Down:=-6
  17.     Range("A6:BB9").Select
  18.     Selection.Copy
  19.     Sheets("Notes").Select
  20.     ActiveWindow.SmallScroll Down:=-3
  21.     Range("A2").Select
  22.     ActiveSheet.Paste
  23.     Columns("BC:BC").Select
  24.     Application.CutCopyMode = False
  25.     Selection.ClearContents
  26.     Sheets("Updated Data").Select
  27.     Columns("BC:BC").Select
  28.     Selection.ClearContents
  29.     ActiveSheet.ShowAllData
  30.     Selection.AutoFilter
  31.     Range("A1").Select
  32.     ActiveWorkbook.Save
  33. End Sub
複製代碼
各位大大午安：

請問如何撰寫VBA，將有Updated Data工作表裡AP欄及BB欄有值的整行複製並存到Notes工作表裡？又Notes工作表有如資料庫般, 倘若Updated Data裡的資料Notes遇到重複的，則會以新的資料為主，即將有AP欄及BB欄有值的整行複製儲存到Notes工作表裡並覆寫蓋過去。
目前我只能手動先用=IF(AP2=BB2,1,0) 選出都是空格的不要後，複製、貼上到Notes工作表，如果有重複的再自己手動刪。

麻煩請大大們救救我~~~
感激不盡!

弱女子留
收藏 分享

sax868

帖子
37 
主題
9 
精華
0 
積分
61 
點名
0  
作業系統
Windows7 
軟體版本
office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-4-26 
最後登錄
2014-7-28 
2#
發表於 2012-5-24 09:44 | 顯示全部帖子
回復 2# register313

非常感激高手register313 大大的幫忙!很好用喔!這下我的人生又從黑白變回彩色的了!!
另外，想請教文中的 "10"代表甚麼意思呢?

感激不盡的
弱女子留

TOP

sax868

帖子
37 
主題
9 
精華
0 
積分
61 
點名
0  
作業系統
Windows7 
軟體版本
office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-4-26 
最後登錄
2014-7-28 
3#
發表於 2012-5-24 15:28 | 顯示全部帖子
回復 4# register313

了解!真受用~謝謝R大指教!!

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題