在Excel中select范围，并将其作为进一步参考的表格

我相当新的VBA编码。 我正在为每个季度收到一次的特定数据集编写一段代码。 我想要代码select范围，然后使它成为一个表后面的列将被添加到表等

我写了下面的代码，但是，它似乎尽其所能，但仍然给我一个“types不匹配”的错误，但行动仍然执行，因为它应该。

请告知导致错误的原因（第20行错误 – select和创build表的最后一步）

Sub QMRQOC() 'CREDIT MACRO 'Set Variables Dim CrData As Worksheet Set CrData = Worksheets("Credit Data") Dim LastRow As Long Dim LastColumn As Long Dim StartCell As Range Set StartCell = Range("A1") Dim CrRng As Range Dim CrTbl As ListObject 'Find last row and column LastRow = CrData.Cells(CrData.Rows.Count, StartCell.Column).End(xlUp).Row LastColumn = CrData.Cells(StartCell.Row, CrData.Columns.Count).End(xlToLeft).Column 'Select Range & make it a table CrData.ListObjects.Add.Range(StartCell, CrData.Cells(LastRow, LastColumn)).Name = "CrTbl" End Sub 

Answer 1

改变你的行：

 CrData.ListObjects.Add.Range(StartCell, CrData.Cells(LastRow, LastColumn)).Name = "CrTbl" 

至：

 CrData.ListObjects.Add(xlSrcRange, Range(StartCell, CrData.Cells(LastRow, LastColumn))).Name = "CrTbl"