在Excel VBA中发布date列

我被困在什么应该是一个非常简单的问题，这是令我非常沮丧的。

从本质上讲，我通过许多文件进行sorting并操作它们，但是我坚持这样做：如何在每个单元格中添加date等列到其他列有数据的末尾？

假设有5个长度为20的其他列。 我将使用什么代码来创build第6列，长度为20？ 每个工作表的长度都不一样，这就是问题所在。

在像MATLAB这样的程序中，我可以用类似F1的方式来表示这个：end，但是findExcel的答案让我疯狂！

任何帮助将不胜感激。

Answer 1

在VBA中，您通常会从下往上查找列中最后一个非空白单元格。 有了这个，你可以将.Row连接成一个Range对象定义。 例：

 with activesheet .range("F1:F" & .cells(rows.count, 5).end(xlup).row) = Format(Now, "dd-mmm-yyyy hh:mm") end with 

这将填充F列从第一行到列E中最后一个非空白值旁边的单元格。

Answer 2

你可以通过编程的方式在vb中检测最后一行的值，虽然听起来好像你可能是在一个更直接的工作解决scheme之后。

在首行中键入一个值，选中单元格后，应在单元格右下angular看到一个正方形，双击它以填充到已使用范围的末尾。

Answer 3

 Sub Tester() With ActiveSheet .Range(.Range("E1"), _ .Cells(Rows.Count, "E").End(xlUp)).Offset(0, 1).Value = Date End With End Sub