ActiveSheet.ListObjects.Add(xlSrcRange, Range(“$A$1:$D$8”), , xlYes).Name = “テーブル名”
ActiveSheet.Range(“A1”).Select
ActiveSheet.ListObjects(“テーブル名”).TableStyle = “TableStyleMedium21”
ActiveSheet.ListObjects.Add(xlSrcRange, Range(“$A$1:$D$8”), , xlYes).Name = “テーブル名”
ActiveSheet.Range(“A1”).Select
ActiveSheet.ListObjects(“テーブル名”).TableStyle = “TableStyleMedium21”