VBA代码将当前日期添加到下一个单元格中 [英] VBA code to add current date in next cell

问题描述

我有以下数据（附件），我必须每天手动添加。
现在，我试图自动化。

I have below data (attached), which I have to add manually everyday. Now, I am trying to automate it.

1. 我想在下一个可用的单元格中添加当前日期（例如：单元格E1）


2. 第二个单元格（E2），应获得名为库存的另一个工作表的自动过滤器后可见行的返回值。

请帮助我使用这两个代码。

Please help me with these two codes.

推荐答案

Sub main()
    With Range("A1").CurrentRegion
        .Offset(, .Columns.Count).Resize(2, 1) = Application.Transpose(Array(Date, Application.WorksheetFunction.Subtotal(103, Worksheets("Stock").UsedRange.Columns(1).SpecialCells(XlCellType.xlCellTypeVisible))))
    End With
End Sub

这篇关于VBA代码将当前日期添加到下一个单元格中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！