VBA填充标题下的第一行

很简单的问题,令我感到沮丧。 我在工作表中有这个过滤列,其中Type是标题名称:

AO 1 Type 55 blank 62 blank 63 blank 65 blank 

我正在尝试填充所有过去的types在这个已过滤的列与文本'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 

因为如果你在filter之后使用AO ,就像你所显示的那样,你可能有很多空白。 然后LastRow可能无法正确设置。 使用列A(我假设有最多的数据?),你可以帮助防止任何错误。