通过遍历整列获取单元格值

Question

我想根据单元格 A1:AG1 中显示的值对 table 应用过滤器。但问题是当我的数据更新时，有时我在其他单元格中有值，如 AH、AI 等，这些值仅在第一行可用。

所以我尝试为每个单元格添加一个循环，但它不起作用。如何更改我的代码以循环遍历一行中的每一列。帮帮我

Dim ws As Worksheet
Dim str2 As Variant
Dim arr2() As String
Dim j As Long
Dim rng As Range

Set ws = Sheets("Main")
Set Tbl = Sheet2.ListObjects("DataTable")
Set rng = Range("A1:AG1") 'Need to change

j = 1
For Each cell In rng
    str2 = cell.Value
    ReDim Preserve arr2(j)
    arr2(j) = str2
    j = j + 1
Next cell

Tbl.Range.AutoFilter Field:=12, Criteria1:=arr2, Operator:=xlFilterValues

End sub

Answer 1

像下面这样的东西怎么样：

Dim ws As Worksheet
Dim ws2 As Worksheet
Dim arr2() As String
Dim i As Long

Set ws = Sheets("Main")
Set ws2 = Sheets("Sheet2")
Set Tbl = ws2.ListObjects("DataTable")

LastCol = ws2.Cells(1, ws2.Columns.Count).End(xlToLeft).Column
'above will give you the last column number in row one of sheet ws2
ReDim Preserve arr2(1 To LastCol) 're-size the array
'Set rng = Range("A1:A" & LastCol) 'set your range from column 1 to last


For i = 1 To LastCol 'loop through columns
    arr2(i) = ws2.Cells(1, i).Value 'add value to array
    'above number 1 represents Row 1, and i will loop through columns
Next i

Tbl.Range.AutoFilter Field:=12, Criteria1:=arr2, Operator:=xlFilterValues
'above will filter table column 12 with array values?

Answer 2

不知道我是否理解你的问题，直接替换为：

Set rng = Range("A1:AG1")

与：

Set rng = ws.range(ws.cells(1 , 1) , ws.cells(1 , ws.Cells.Columns.Count).End(xlToLeft).Column

通过遍历整列获取单元格值

Getting cell value by looping through entire column

excel

vba

loops

excel-2010