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

tryit244178

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

1. With datasht   
   
2.     Selection.AutoFilter FIELD:=4, Criteria1:="登記"
   
3.     .Range("A1:i" & Y).Copy ASHT.[A1]
   
4. 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

複製代碼

看你喜歡用哪個




...

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