VBA代码添加当前日期下一个单元格(VBA code to add current date in

我有下面的数据（附加），我必须手动日常补充。 现在，我想自动化。

1. 我希望在现有的下一个单元格添加当前日期（例如：小区E1）
2. 第二单元（E2），应该得到来自行命名为“股票”的另一个工作表自动筛选后可见的返回值。

请帮我看看这两个代码。

Answer 1:

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 code to add current date in next cell