经过筛选后，如何获取到标题行下一行各个单元格的值？

lcxq120713 · 发表于 2023-3-10 11:36

lcxq120713 · 发表于 2023-3-10 11:37

行号是变化的

Jaofuan · 发表于 2023-3-10 11:49

有筛选的条件循环判断

lcxq120713 · 发表于 2023-3-10 12:05

Jaofuan 发表于 2023-3-10 11:49
有筛选的条件循环判断

不会写循环可以帮一下吗

Jaofuan · 发表于 2023-3-10 12:36

lcxq120713 发表于 2023-3-10 12:05
不会写循环可以帮一下吗

上附件吧

taller · 发表于 2023-3-10 13:34

本帖最后由 taller 于 2023-3-11 00:06 编辑

上述代码考虑不周全，请参考

Sub demo()
If ActiveSheet.AutoFilterMode = True Then
Set c = Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible)
If c.Areas(1).Rows.Count > 1 Then
Debug.Print c.Rows(2).Address
Else
Debug.Print c.Areas(2).Rows(1).Address
End If
End If
End Sub

复制代码

perfect131 · 发表于 2023-3-10 13:45

本帖最后由 perfect131 于 2023-3-10 14:09 编辑

lcxq120713 发表于 2023-3-10 12:05
不会写循环可以帮一下吗

不需要循环

perfect131 · 发表于 2023-3-10 14:09

''筛选后获取到标题行下一行各个单元格的值
Sub kong()
If ActiveSheet.AutoFilterMode = True Then
If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas(1).Rows.Count > 1 Then
arr = Range(ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas(1).Offset(1, 0).Address).Resize(1, ActiveSheet.AutoFilter.Range.Columns.Count).Value
Else
arr = Range(ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Areas(2).Address).Resize(1, ActiveSheet.AutoFilter.Range.Columns.Count).Value
End If
End If
End Sub

复制代码

准提部林 · 发表于 2023-3-10 14:25

taller 发表于 2023-3-10 13:34

如果篩選後第一行與標題行相鄰, 會抓到第二區, 而不是可見第一行//

准提部林 · 发表于 2023-3-10 14:46

標題行依篩選區而定, 不一定在第一行//

Sub ttt()
With ActiveSheet.AutoFilter.Range
Set R = .Offset(1).SpecialCells(xlCellTypeVisible).Rows(1)
If R.Row <= .Item(.Count).Row Then MsgBox R.Address
End With
End Sub

		自动登录	找回密码
密码			免费注册

经过筛选后，如何获取到标题行下一行各个单元格的值？

评分

评分

评分