在列中填充公式，直到没有更多数据

Question

我正在尝试在B列中用公式“ = today（）”填充一列，直到行中没有更多数据为止。 大约有650行数据，但是我正在创建一个宏，如果有更多或更少的数据行，则必须工作。 我该怎么做呢？

谢谢！

Answer 1

子列date（）

昏暗的NoRowsCount为整数

NoRowsCount = Range（“ A”＆Rows.Count）.End（xlUp）.Row

对于i = 0到NoRowsCount

If Activesheet.Cells(A, i).value <> "" then

   Activesheet.Cells(B, i).value = Today()

end if

我=我+1

下一个

结束子