VBA代码自动select前10列

从我以前的问题引用。

在下一个单元格中添加当前date的VBA代码

如何从当前dateinput中select以前的十天数据。 示例：根据我的第一个截图让我说今天的入口将在列E，我想select前10条目创build一个graphics。 所以，如果我来tomo，我的入口将在F，我想select列F，E，D，C ,,,，

Answer 1

保持你以前的代码链接，试试这个（未经testing）：

在OP的澄清后进行编辑

Option Explicit Sub Update() Dim nCols As Long, nOffset As Long With Range("A1").CurrentRegion With .Offset(, .Columns.Count - 1).Resize(1, 1) If .value < Date Then nOffset = 1 With .Offset(, nOffset) .Resize(2, 1).value = Application.Transpose(Array(Date, Application.WorksheetFunction.Subtotal(103, Worksheets("Stock").UsedRange.Columns(1).SpecialCells(XlCellType.xlCellTypeVisible)))) nCols = IIf(.Column > 10, 10, 10 - .Column - 1) .Offset(, -nCols + 1).Resize(, nCols).Select End With End With End With End Sub