下移到下一行过滤数据vba excel
文建长
我有这样的表：
我想要的是，我可以向下移动下一行并显示其值。我已经有了代码：
Sub test()
'Select the first row.
MsgBox Sheet1.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 3).Value
'Then move down to the second row of filtered data.
'Code
End Sub
有人可以建议如何完成我上面的 sub 吗？
我会很感激你的帮助。
合资企业
您可以尝试实施/调整以下内容：
Sub VisRows()
Dim rng As Range, lr As Long
With Sheet1 'Change accordingly
lr = .Cells(.Rows.Count, "B").End(xlUp).Row
Set rng = .Range("B2:B" & lr)
'Apply your filter
For Each cl In rng.SpecialCells(xlCellTypeVisible)
Debug.Print cl.Value
Next cl
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
下一行的 Excel VBA 公式
- 2
单击Excel VBA中的按钮后如何将数据保存到下一行
- 3
Excel VBA-需要将数据放入下一行，并从现有位置删除
- 4
Excel VBA-对于下一个循环多次复制同一行
- 5
Excel VBA-如何知道下一行或下一列是否是最后一个？
- 6
在下一行Excel VBA中使用公式拆分单元格
- 7
Excel VBA-激活工作表上的下一行错误
- 8
Excel VBA 复制多行并根据按钮单击插入到下一行
- 9
使用Macro在Excel的下一行上获取列
- 10
excel在一行中移动，参考使用OFFSET向下移动一列
- 11
使用VBA在excel中达到第6个单元格值后在下一行打印值
- 12
如何在Excel 2007中将选择向下移动一行？
- 13
如果填充了第一行，则让Excel切换到下一行
- 14
VBA Excel文本到列数据仅返回一行
- 15
Excel VBA：如何查找包含实际数据的工作表的最后一行
- 16
从Excel VBA查找CSV数据库中的最后一行
- 17
Excel VBA优化筛选范围的最后一行
- 18
如何知道最后一行填写VBA（Excel）？
- 19
使用VBA引用Excel中的另一行
- 20
Excel 2010 VBA仅影响范围的最后一行
- 21
Excel VBA的最后一行变量不计算
- 22
Excel VBA：用数组替换第一行
- 23
使用Excel VBA查找最后一行
- 24
Excel VBA优化筛选范围的最后一行
- 25
访问 VBA：获取 Excel 工作表的最后一行
- 26
使用一行 Excel VBA 删除工作表
- 27
在第一行查找特定单词，如果找到则进行计算，如果没有，则转到 Excel VBA 中的下一个工作表
- 28
Excel VBA：如何将公式放在唯一行数的下一个可用列中？
- 29
使用Excel VBA宏将一行数据复制并粘贴到单独的行和交错的列中
我来说两句