各位好，想請問關於Excel篩選功能配合VBA使用，有沒有辦法達成「跳到下一個項目」

snare wrote:
https://www.mobile01.com/topicdetail.php?f=511&t=5056987&p=1#63233105

misser wrote: 方便的話，提供一下你的檔案(初始資料、最終結果)範例來看看？如果時間允許的話，可以幫你完成？

另外，你的Excel版本是？

稻草人到處草人 wrote:
......以此為例，我依照「名字」進行篩選....

'程式 by misser 109.9.2
Sub auto_next() '自動篩選下一位

err_f = 0 ' 執行錯誤判斷旗標

On Error GoTo err_hand '以下程式執行若發生錯誤，就跳到 errhand:位置 (最底下)

r_f = ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlVisible).Rows(1).Row
    '取得目前篩選得到的第一筆資料真實列數(若目前未執行篩選，會發生錯誤，程式跳到 errhand:)
    
If err_f = 1 Then r_f = 2 Else r_f = r_f + 1
    '如果上一步驟發生錯誤，就從第2列開始檢查
    '如果沒錯，就從目前篩選的列數，往下一列，準備檢查

Do
    If Cells(r_f, 2) = "" Then
            Range("L1") = ""  '已經沒有需要勾選的人員
            MsgBox "已勾選結束囉！"
            Exit Do  '跳出迴圈
        ElseIf Excel.Application.WorksheetFunction.CountIf(Range("B2:" & "B" & r_f), "=" & Cells(r_f, 2)) = 1 Then
            '檢查該列的姓名，若是第一次出現(由2~目前列)，就執行篩選該人員
            
            ActiveSheet.Range("A:I").AutoFilter Field:=2, Criteria1:=Cells(r_f, 2)  '在篩選中勾選這位
            
            ActiveSheet.AutoFilter.Range.SpecialCells(12).Copy '將篩選結果放到剪貼簿，方便使用者下一步處理
            
            'Exit Sub
            Exit Do '跳出迴圈
    End If
    r_f = r_f + 1
Loop

Exit Sub  '離開本程序

err_hand:  '錯誤(無篩選狀態)處理
    err_f = 1  '將錯誤旗標設為1
    Resume Next  '程式回到錯誤點的下一步繼續執行
End Sub

misser wrote:
我還是先將A的功能完成了，以下是程式碼

misser wrote:
抱歉，上述的程式碼裡(恕刪)