VBA填充标题下的第一行

很简单的问题让我很沮丧。我的工作表中有此筛选列，其中类型是标题名称：

   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列（我假设它有最多的数据？）可以帮助防止任何错误。

我认为OP只希望可见单元格有这些数据。@ScottCraner正确，我将把它添加到我的帖子中clarift@ScottCraner-啊，是的，我想补充一下。已编辑。@BruceWayne我获取“object\u Global”的方法“Range”的错误失败。有没有关于如何解决这个问题的建议？谷歌建议我需要参考表格？但是，如果我删除AO2中的2，它仍然会填充该列，这让人困惑me@codeninja-您能否在OP中编辑您如何声明和定义，

LastRow

？我假设它是一个整数。此外，是的，您应该将图纸名称添加到开始处，以清楚显示<代码>工作表（“Sheet1”）.Range（“AO2:AO”&LastRow）.请注意，您的代码隐式引用的是

ActiveSheet

。这将导致后续的其他问题。学习使用

工作表

对象正确限定

范围

、

单元格

、

行

和

列

调用。您可以使用来帮助查找隐式

ActiveSheet

/

ActiveWorkbook

引用的所有实例。