以下代码,将选中区域的值挨个弹窗显示,数据如果有筛选,将只显示筛选结果中的值
For Each c In Selection.SpecialCells(xlCellTypeVisible) MsgBox (c.Value) Next