Question

我在Excel中有一个表，当用户在表后添加数据时，数据不属于该表。

我创建了一个可以执行以扩展表的代码。代码如下：

Sub ExtendTableToLastRow()

    Sheets("Update").Select
    If ActiveSheet.FilterMode Then ActiveSheet.AutoFilter.ShowAllData
    'LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastRow = ActiveSheet.Range("a1").Offset(ActiveSheet.Rows.Count - 1, 0).End(xlUp).Row

    ActiveSheet.ListObjects("TUpdate").Resize Range("$A$2:$AK$" & LastRow)
    Range("A1").Select
End Sub

问题是这必须手动执行。

根据评论，我创建了以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Sizes the table to include all new rows
    Application.EnableEvents = False
        If ActiveSheet.FilterMode Then ActiveSheet.AutoFilter.ShowAllData
        LastRow = ActiveSheet.Range("a1").Offset(ActiveSheet.Rows.Count - 1, 0).End(xlUp).Row
        ActiveSheet.ListObjects("TUpdate").Resize Range("$A$2:$AK$" & LastRow)
    Application.EnableEvents = True
End Sub

但是当我在表格下的单元格中添加值时，代码会执行，但现在当我复制一行时。

Answer 1

您可以将代码作为Worksheet_Change事件的处理程序。

Arrtice on MSDN

Answer 2

您可以更改Excel设置：

File > Options > Proofing > AutoCorrect Options > AutoFormat As You Type并检查Include new rows and columns in table

或者只运行一次此行：

Application.AutoCorrect.AutoExpandListRange = True

Answer 3

嘿，我相信这应该有所帮助！

祝你好运。

http://www.tushar-mehta.com/publish_train/xl_vba_cases/0101%20Create%20a%20self%20adjusting%20range.htm

当数据添加到表下方时，Excel VBA扩展表

3 个答案: