標題: [發問] 請問：指定欄位有資料時，複製至其他工作表中 [打印本頁]

---

作者: jsc0518    時間: 2018-7-7 18:26     標題: 請問：指定欄位有資料時，複製至其他工作表中

Dear 各位Excel先進,
我有工作表"步驟1"內有相關資料，其中在G欄位"數量1"下有出現資料(數據)時，想要利用VBA自動COPY到""步驟2"中
想與各位請教VBA語法，謝謝大家！

工作表-步驟1
[attach]28928[/attach]

工作表-步驟1-G欄列下有資料的欄列
[attach]28929[/attach]

想要自動複製到工作表-步驟2
[attach]28930[/attach]

[attach]28931[/attach]

---

作者: faye59    時間: 2018-7-7 22:08

回復 1# jsc0518


    小弟不才，只會這樣寫，不知適不適合。

1. Sub ex()
   
2. Dim f1, f2, f3 As Workbook
   
3. Set f1 = Sheets("步驟1")
   
4. Set f2 = Sheets("步驟2")
   
5. f1.Select
   
6. Application.ScreenUpdating = False
   
7. For Each aa In Range([A2], [A2].End(xlDown))
   
8. If aa.Offset(, 6) <> "" Then
   
9.     f2.Select
   
10.     NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    
11.     Cells(NextRow, 2).Resize(1, 11) = aa.Offset(0, 0).Resize(1, 11).Value
    
12. End If
    
13. Next
    
14. f1.Select
    
15. Application.ScreenUpdating = True
    
16. End Sub

複製代碼

---

作者: jsc0518    時間: 2018-7-8 07:46

回復 2# faye59
您好！早安，非常感謝您的回覆
剛剛執行了VBA語法，狀況為會將資料複製到工作表"步驟1"(資料要複製到"步驟2")
[attach]28937[/attach]

另外，在"步驟1"H欄位(數量2)有設定公式，複製過去時，是否也可以跟著過去

我自己有錄製巨集(篩選G欄下有數據資料後，再用COPY的)，但是錄製巨集都是複製一樣的欄列，無法判斷G欄有資料時都是複製，是否可以幫忙

---

作者: jsc0518    時間: 2018-7-8 18:55

回復 2# faye59
Hi 抱歉,原來VBA要放在ThisWorkbook下
TEST OK
有問題再跟您說，非常感謝您

---

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