Excel VBA:更新用户表单位置/大小留下痕迹

Sub UpdateTablePositionAndSize()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim newRange As Range
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置表格对象
    Set tbl = ws.ListObjects("Table1")
    
    ' 更新表格位置
    Set newRange = ws.Range("A1").Resize(tbl.Range.Rows.Count, tbl.Range.Columns.Count)
    tbl.Range.Copy newRange
    tbl.Range.Delete
    
    ' 更新表格大小
    tbl.Resize newRange
    
    ' 添加痕迹
    ws.Cells(1, 1).Value = "表格位置和大小已更新"
End Sub