使用整数数组自动筛选多个条件

Question

I believe I'm having a data type issue. I am exporting a sheet as .csv from Tableau and trying to use a column of integers account IDs (that exports as 'General format) and enter those values into an array. I then want to use that array of integers within my autofilter so I can filter multiple criteria (there could be many integer IDs I might need to filter for, not just 2). I also want to filter by the LOB array that contains the groups I'm trying to target.

When I set bikeARR = Tester.Range("A2:A" & lastRow) directly from the sheet the autofilter does not work. I've tried to format the values as 'TEXT' within Excel. I've also tried adding in the " ' " prior to the IDs to force it to show as text, but when I fill bikeARR directly from the Tester sheet my filter does not work. If I use bikeARR = Array("145", "147", "11868", "281") the TableauRCSA filters correctly. It will first filter for the 3 LOBs and then filter for each of the ID values. I believe that the array has to be text values but how can I force that to happen when I'm filling my array?

Sub testArray()
Dim bikeARR, LOB As Variant
Dim TableauRCSA, Tester As Worksheet
Dim lastRow As Integer


Set TableauRCSA = Workbooks("BPM_Sprint_SharePoint_Tracking.xlsm").Sheets("IPRC_Publish_Process_Model_+_RC")
Set Tester = Workbooks("BPM_Sprint_SharePoint_Tracking.xlsm").Sheets("Tester")
lastRow = Tester.Cells(Rows.Count, 1).End(xlUp).Row
'bikeARR = Tester.Range("A2:A" & lastRow)

bikeARR = Array("145", "147", "11868", "281")

LOB = Array("CB", "CRE", "CIB")

TableauRCSA.Activate
TableauRCSA.Range("A1").AutoFilter Field:=1, Criteria1:=LOB, Operator:=xlFilterValues 'Filter for LOB element
TableauRCSA.Range("B1").AutoFilter Field:=2, Criteria1:=bikeARR, Operator:=xlFilterValues 'Filter for BIKE IDs
End Sub

Answer 1

I was able to find a solution to my problem. Using the CStr function it will convert the integer to a string and work in the autofilter.

Sub testArray()
Dim bikeARR, LOB As Variant
Dim TableauRCSA, Tester As Worksheet
Dim lastRow, total As Integer

Set TableauRCSA = Workbooks("BPM_Sprint_SharePoint_Tracking.xlsm").Sheets("IPRC_Publish_Process_Model_+_RC")
Set Tester = Workbooks("BPM_Sprint_SharePoint_Tracking.xlsm").Sheets("Tester")
lastRow = Tester.Cells(Rows.Count, 1).End(xlUp).Row

'Fill Team List array
ReDim bikeARR(0 To (lastRow - 1))
i = 0
For x = 2 To lastRow 'NOTE: Team list starts at C2
    bikeARR(i) = CStr(Tester.Cells(x, 1).Value) 'convert integer to string
    i = i + 1
Next x

LOB = Array("Commercial Banking", "Commercial Real Estate", "Corporate Banking")


TableauRCSA.Activate
TableauRCSA.Range("A1").AutoFilter Field:=1, Criteria1:=LOB, Operator:=xlFilterValues 
'Filter for LOB element
TableauRCSA.Range("A1").AutoFilter Field:=2, Criteria1:=bikeARR, Operator:=xlFilterValues 'Filter for BIKE IDs
End Sub