excel - VBA填充标题下的第一行

很简单的问题令我感到沮丧。我的工作表中有此过滤的列，其中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"

但是我似乎无法使这种变化生效。任何帮助表示赞赏

最佳答案

尝试做

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

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

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

因为如您所示，如果在过滤器之后使用AO，则可能会有大量的空白。然后LastRow可能设置不正确。使用A列（我认为它具有最多的数据？）可以帮助防止任何错误。