lastRow = ws.Cells(Rows.Count, "H").End(xlUp).Row ws.Range("H20").FormulaR1C1 = "=TODAY()" ws.Range("H20:H" & lastRow).FillDown 填充数值和左列列数一致

根据你的描述，我理解你需要在 H20 单元格输入当天日期，并将该日期填充到 H 列的最后一行。可以参考下面的代码：

lastRow = ws.Cells(Rows.Count, "H").End(xlUp).Row
ws.Range("H20").Value = Date
ws.Range("H20:H" & lastRow).FillDown

第一行代码获取 H 列的最后一行，第二行代码将当天日期赋值到 H20 单元格，第三行代码将 H20 单元格中的日期填充到 H 列的最后一行。注意，使用 `Value` 属性而不是 `FormulaR1C1` 属性来设置单元格的值，这样可以避免后续计算错误。

相关问题

'获取最后一行 lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row这是获取B列有数据的最后一行行号吗

是的，您理解得很正确。这一行代码的作用是获取工作表 `ws` 中包含数据的最后一行行号，其中 `ws.Rows.Count` 表示工作表的总行数，`"B"` 表示要操作的列，`.End(xlUp)` 表示从下往上查找，直到找到第一个非空单元格，最后 `.Row` 表示返回该单元格所在的行号。

因此，`lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row` 这一行代码的作用就是获取B列中包含数据的最后一行行号，然后将其赋值给变量 `lastRow`，供后续代码使用。

lastRow3 = ws3.Cells(ws3.Rows.Count, "J").End(xlUp).Row

这段代码是对 Excel VBA 中的 Worksheet 对象进行操作，用于获取指定工作表 ws3 中最后一个非空单元格所在的行号。具体来说，它会从列号为 J 的列的最后一行开始向上搜索，直到找到第一个非空单元格，然后返回该单元格所在的行号，赋值给变量 lastRow3。这个代码片段通常用于确定某个工作表中数据的最后一行，以便在后续的操作中循环处理这些数据。