VBA 填充标题下的第一行

Question

非常简单的问题却让我感到沮丧。我的工作表中有这个过滤列，其中 Type 是标题名称:

   AO
1  Type
55 blank
62 blank
63 blank
65 blank

我正在尝试用文本“A”填充此过滤列中“键入”之后的所有内容

到目前为止我的尝试:

LastRow = Range("AO" & Rows.Count).End(xlUp).Row
Range("AO:AO" & LastRow).Offset(1).Formula = "A"

但我似乎无法让这种变体发挥作用。感谢任何帮助

Answer 1

尝试做

Sheets("Sheet1").Range("AO2:AO" & LastRow).SpecialCells(xlCellTypeVisible).Value = "A"

编辑后，我可能会将 LastRow 更改为:

LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

因为如果您在过滤器之后使用 AO ，如您所示，您可能会有大量空白。那么 LastRow 可能无法正确设置。使用 A 列(我假设该列数据最多？)可以帮助防止出现任何错误。