在列中填充公式直到不再有数据

Question

我正在尝试使用公式＆＃34; = today（）＆＃34;填充列。在B列中，直到行中没有更多数据。大约有650行数据，但我正在创建一个宏，如果有更多或更少的数据行，它将必须工作。我该怎么做？

谢谢！

Answer 1

Sub columndate（）

将NoRowsCount调整为整数

NoRowsCount =范围（＆＃34; A＆＃34;＆amp; Rows.Count）.End（xlUp）.Row

对于i = 0到NoRowsCount

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

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

end if

i = i + 1

下一步

End Sub