EXCEL vba 单元格选中 赋值功能

Question

Sub 快捷键()
'
' 快捷键 Macro
'
' 快捷键: Ctrl+q
Dim r1 As Integer, c As Integer, r2 As Integer
c = Selection.Column

r1 = Selection.Row
r2 = Cells(65536, 1).End(xlUp).Row

Cells(r1, c).Resize(r2 - r1 + 1, 1).value=1

End Sub

代码 测试结果

有一列数据
A
B
A
C
A
在筛选A后 选中第二列，某个单元格，然后按快捷键。然后自动填充选中单元格一下的所有行的内容为1.
有个问题。为什么这个代码不会把因筛选功能隐藏掉的行的数据填为1.
主要我写了这个代码给朋友。有时候会出错。吧隐藏的填了1.但是大部分请款都是，只填了可见单元格。

Answer 1

因该是隐藏的行中也会填上1，但是填的范围可能会比你想要的小吧

因为r2 = Cells(65536, 1).End(xlUp).Row，当有隐藏行或者筛选时将返回可见的最后一个单元格的行号

追问

代码可以尝试。隐藏行没有填

Answer 2

筛选过滤了只是你看不到、选不中，但实际单元格还存在，通过vba可以向这些单元格写入数据。
再解释一下你这个代码想实现什么效果？看看能不能帮忙。