EXCEL 用VBA 如何可取得不同key值資料

p034611941

請各位大大幫忙指點..感激不盡!
以下小弟只會取一種資料到另一工作表
各位大大..要如何才能把庫存資料同時將"未配" 及 "登記" 兩種KEY值資料同時取至另一工作表?

Sub add()
Dim datasht As Worksheet, ASHT As Worksheet
Dim Y As Integer
Set datasht = Sheets("庫存")
Set ASHT = Sheets("未配登記")
Sheets("未配登記").Select
...

瀏覽完整內容，請先 註冊 或 登入會員

p034611941

tryit244178 跟 bigbrain 都好棒,二個vba都能用.有您們真好....不但解決問題,還讓小弟我學習的更多..在此由衷感謝二位。前二天比較忙也沒時間上網,現在才回應,請大人有大量,別介意喲!

bigbrain

把這裡改為這樣試試
With datasht   
    Selection.AutoFilter FIELD:=4, Criteria1:=Array("未配", "登記"), Operator:=xlFilterValues
    .Range("A1:i" & Y).Copy ASHT.[A1]
End With

tryit244178

假設你要複製到 B 列，就改為這個

1.     .Range("A1:i" & Y).Copy ASHT.[B1]

複製代碼

---

噢！我後來去查了AutoFilter 方法

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你也可以改成

1. With datasht   
   
2.    Selection.AutoFilter FIELD:=4, _
   
3.                         Criteria1:="未配", _
   
4.                         Operator:=xlOr, _
   
5.                         Criteria2:="登記"
   
6.    .Range("A1:i" & Y).Copy ASHT.[A1]
   
7. End With

複製代碼

看你喜歡用哪個




...

瀏覽完整內容，請先 註冊 或 登入會員

p034611941

感謝tryit244178回覆..
使用"登記"會從A1開始覆蓋"未配"的資料...
不知插入的方法該是如何使用..?

tryit244178

再寫一個"登記"用的
加在End Sub上面，這樣應該行吧？

1. With datasht   
   
2.     Selection.AutoFilter FIELD:=4, Criteria1:="登記"
   
3.     .Range("A1:i" & Y).Copy ASHT.[A1]
   
4. End With

複製代碼