[英]Create Table in Excel Worksheet using VBA
我在下面有這個代碼會自動選擇一個范圍。 有誰知道如何添加代碼來創建所選范圍的表?
謝謝!
Sub DynamicRange()
'Best used when first column has value on last row and first row has a value in the last column
Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Set sht = Worksheets("Sheet1")
Set StartCell = Range("D9")
'Find Last Row and Column
LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column
'Select Range
sht.Range(StartCell, sht.Cells(LastRow, LastColumn)).Select
End Sub
使用以下Excel VBA代碼段添加與所選Range
對應的Table
對象:
Dim objTable As ListObject
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
您還可以將可選樣式應用於添加的Table
對象,如下所示:
objTable.TableStyle = "TableStyleMedium2"
有關MSDN的更多詳細信息,請訪問: https : //msdn.microsoft.com/en-us/library/office/ff823155.aspx
希望這會有所幫助。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.