|
請見檔案壓縮檔案"VBA練習" 解壓縮後,當中有一個是"範例"活頁簿,另一個是"空白帳冊"活頁簿,兩個須同時開啟才能使用下方的VBA,
如果有大大可以幫忙設成只開啟範例, 就自動複製貼上資料到"空白帳冊"並同時刪除所複製的來源資料,那就更加感謝了!!
目前我只能夠使用下方判斷每個工作表在銷貨日期那一欄若沒有值(日期)則複製有資料的部分到"空白帳冊"活頁簿對應的客戶工作表裡面
Sub Copyandpastethendelete()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Set wsCopy = Workbooks("範例.xlsm").Worksheets("泰C071")
Set wsDest = Workbooks("空白帳冊.xlsm").Worksheets("泰C071")
'1. Find last used row in the copy range based on data in column D
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row
'2. Find first blank row in the destination range based on data in column B
'Offset property moves down 1 row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
'3. Copy & Paste Data
wsCopy.Range("B17:X51" & lCopyLastRow).Copy _
wsDest.Range("B7")
'4. Clear contents of existing data range
wsCopy.Range("B17:X51" & lDestLastRow).ClearContents
End Sub
藍色部分要自己KEY每個工作表的名稱, 紅色部分也是自己要看範圍區間去打,
請問有什麼辦法可以設定除了"範例"檔案裡面的第一個&第二個工作表以外,
其他無論多少個工作表都去判斷, 以及查對若B欄沒有值,就選取整個範圍複製貼上到空白帳冊活頁簿對應客戶的工作表裡面,
並刪除原始在"範例"活頁簿工作表當中的複製來源資料
附件有圖片是我執行上方程式後的截圖畫面,
但我不想每次只能自己手動設定每個工作表與區間範圍. 還請大家多多幫忙~
謝謝!!
|
-
3.空白帳冊的對應工作表已出現資料
-
2.執行後-範例下方資料刪除
-
1. 原始範例資料內容
-
-
VBA練習.rar
167.69 KB, 下載次數: 2
售價: 2 金錢 [記錄]
[購買]
範例與空白帳冊活頁簿
|