VBA填写标题下的第一行

时间:2017-08-08 15:23:18

标签: excel vba excel-vba

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

   AO
1  Type
55 blank
62 blank
63 blank
65 blank

我正在尝试使用文本“A”

填充此过滤列中Type的所有内容

到目前为止我的尝试:

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

但我似乎无法让这种变化发挥作用。任何帮助表示赞赏

1 个答案:

答案 0 :(得分:3)

尝试

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

编辑完成后,我可能会将LastRow更改为:

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

因为如果您在过滤器之后使用AO ,正如您所示,您可能会有大量的空白。然后LastRow可能无法正确设置。使用A列(我假设它拥有最多的数据?),您可以帮助防止任何错误。