[VBA ] 用vba重複做篩選+上複製貼上的動作

看板Visual_Basic作者 (法克)時間11年前 (2013/08/14 22:43), 編輯推噓1(105)
留言6則, 2人參與, 最新討論串1/1
如下圖為例子 A B C D 產品編號 組別 型號 描述 ----------------------------------------------------- 1 1 C111 A1 ----------------------------------------------------- 2 3 C213 B ----------------------------------------------------- 3 2 C311 C1 ----------------------------------------------------- 4 1 C411 D1 ----------------------------------------------------- 5 2 C511 E1 ----------------------------------------------------- 小弟用自動篩選 在B欄先篩1 得出的結果複製貼到其他Sheet後 在篩2在重複一樣的事 最後到3做完結尾 For i = 1 To 3 Selection.AutoFilter Field:=2, Criteria1:="i" 複製+貼上 next 但是到selection那行就會錯誤 另外加問一個問題 以這題為例 是已知最後會到3的情況 若是到一已知的變數z (寫好會有數字存入z) For i = 1 To z Selection.AutoFilter Field:=2, Criteria1:="i" 複製+貼上 next 這樣是對的嗎?? 抱歉 剛碰vba就遇到一些麻煩來請示這裡的高手們 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.253.165

08/15 20:46, , 1F
好像跟你操作有關 Selection指的是你框起來的區域
08/15 20:46, 1F

08/15 20:50, , 2F
你直接錄製巨集的話 直接顯示Selection.AutoFilter
08/15 20:50, 2F

08/15 20:53, , 3F
這是根據你點選的欄位有關
08/15 20:53, 3F

08/15 20:56, , 4F
前面加一行 Range("A1").Select A1是位置 試看看
08/15 20:56, 4F

08/15 20:57, , 5F
或 Sheet1.Cells(1,1).Select 點選sheet1的A1位置
08/15 20:57, 5F

08/15 21:55, , 6F
Criteria1:= i (i不要用引號包起來)
08/15 21:55, 6F
文章代碼(AID): #1I2vUOU_ (Visual_Basic)
文章代碼(AID): #1I2vUOU_ (Visual_Basic)