如何使用 vba 代码动态自动填充 excel 表数据范围

Question

我想编写 VBA 代码，用于根据给定日期自动填充 excel 表范围数据到右侧列。 例如。 如果我在工作表中为“Sep-19”提供日期，它应该会自动将包含 9 月 19 日数据的表格范围自动填充到右侧。 我正在使用 Excel 2016 版本。 下面是表格数据：

我已经尝试了一些代码，下面是它的 vba 代码：

Sub Macro4()

Range("Table1[[#Headers],[Month]]").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillRight
Range("Table1[[#All],[Aug-19]:[Sep-19]]").Select

End Sub

我希望根据给定月份动态设置代码最后的Range("Table1[[#All],[Aug-19]:[Sep-19]]").Select ，我该怎么做？

Answer 1

下面的代码将 select 列的动态范围和从 A1 开始的前 6 行

Sub rg()
Dim sht As Worksheet
Set sht = Worksheets("Data")

Dim LastRow As Long
Dim LastCol As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(LastCol).Copy
Columns(LastCol + 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

End Sub

Answer 2

谢谢大家，终于找到了我的问题的解决方案，下面是它的代码。

Sub Macro4()

    Range("Table1[[#Headers],[Month]]").Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlDown)).Copy

    ActiveCell.Offset(0, 1).PasteSpecial xlPasteAll
    ActiveCell.FormulaR1C1 = Range("N3").Value


End Sub