选择合适的单元格来创建表格

Question

我录制了一个宏到ctrl+a并创建了一个表。然而，宏仅选择当前存在的单元格。就我而言，这些可能会发生变化。 “干净”功能是我需要帮助的功能。谢谢！

我尝试了网上的一些其他命令，但似乎没有一个对我有用。我对 vba 很陌生！

Answer 1

假设数据范围是连续的并且从A1开始，使用冻结窗格锁定第一行。

Option Explicit

Sub Clean_Update()
    Dim objTable As ListObject
    Dim rngTable As Range
    ' Activate sheet is needed
    ' Sheets("Sheet1").Select
    Set rngTable = Range("A1").CurrentRegion
    Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, rngTable, , xlYes)
    objTable.Name = "Parts"
    rngTable.EntireColumn.AutoFit
    Rows(1).AutoFit
    rngTable.Font.Bold = True
    ' Modify as needed
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With
End Sub