大家好，我希望你能幫助我解決這個問題，因為我剛開始學習 VBA :)
我需要使用來自另一個作業表中的范圍的值自動過濾 excel 作業表的列。有點復雜，這個范圍是動態的，可能包括代碼應該采用并用于自動過濾的不同數字行（每個單元格包含不同的文本）
這是我寫的
Sub Filtrapp()
Worksheets("Applicazioni").Activate
Range("A8:C1000").AutoFilter 1, Worksheets("RecordTabella").Range("C2:C5").Value
End Sub
這里的問題是過濾器只取最后一個單元格“C5”的值，而不是 C2、3、4 的值我也試圖讓它動態，但每次都給我錯誤，希望有人能幫忙
提前致謝
uj5u.com熱心網友回復：
使用陣列作為條件過濾范圍
Sub Filtrapp()
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
Dim sws As Worksheet: Set sws = wb.Worksheets("RecordTabella")
Dim srg As Range
Dim srCount As Long
With sws.Range("C2")
Dim lCell As Range: Set lCell = .Resize(sws.Rows.Count - .Row 1) _
.Find("*", , xlFormulas, , , xlPrevious)
If lCell Is Nothing Then Exit Sub ' empty criteria column range
srCount = lCell.Row - .Row 1
Set srg = .Resize(srCount)
End With
Dim Data As Variant ' 2D one-based
If srCount = 1 Then ' one cell (row)
ReDim Data(1 To 1, 1 To 1): Data(1, 1).Value = srg.Value
Else ' multiple cells (rows)
Data = srg.Value
End If
Dim Arr() As String: ReDim Arr(1 To srCount) ' 1D one-based
Dim r As Long
For r = 1 To srCount
Arr(r) = Data(r, 1)
Next r
Dim dws As Worksheet: Set dws = wb.Worksheets("Applicazioni")
If dws.FilterMode Then dws.ShowAllData
Dim drg As Range: Set drg = dws.Range("A8:C1000")
drg.AutoFilter 1, Arr, xlFilterValues
End Sub
uj5u.com熱心網友回復：
你的意思是這樣的嗎？
這將按 >10 和 <20 的值進行過濾
Worksheets("Applicazioni").Range("C1").AutoFilter Field:=3, Criteria1:=">10", _
Operator:=xlAnd, Criteria2:="<20"
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/473421.html