在Excel VBA

Question

我坚持认为应该是一个非常简单的问题，这让我非常沮丧。

基本上，我正在对许多文件进行排序并对其进行操作，但我仍然坚持这一点：如何在列中添加类似于每个单元格中的日期，直到其他列具有数据的位置？< / p>

假设有5个其他列，每个长度为20。我使用什么代码来使第6列具有一定长度为20的值？长度因我工作的每张纸而异，这就是问题所在。

在像MATLAB这样的程序中，我可以通过像F1这样的东西来表示这一点：结束，但找到Excel的答案让我发疯了！

非常感谢任何帮助。

Answer 1

您可以在vb中以编程方式执行此操作以检测带有值的底行，尽管听起来好像您可能正在使用更直接的前向工作解决方案。

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

Answer 2

Sub Tester()

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

End Sub

Answer 3

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

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

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