对象必需：VBA Excel

我有一个范围，我正在调换和分配给一个listource与行来源。 当我在将范围（TSelected_Range）分配给行源的行上运行我的程序时，出现“Object required”错误。 任何想法？

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1)) Dim TSelected_Range As Variant TSelected_Range = Application.Transpose(Selected_Range) With TabData.DataTable .ColumnHeads = True .ColumnCount = counter + 1 .RowSource = TSelected_Range.Value ********errors here End With 

Answer 1

这应该为你工作我用一个数组和List属性来代替：

 Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1)) Dim TSelected_Range() As Variant TSelected_Range = Selected_Range.Value TSelected_Range = Application.Transpose(TSelected_Range) With TabData.DataTable .ColumnHeads = True .ColumnCount = counter + 1 .List = TSelected_Range End With 

Answer 2

使用List属性

 With TabData.DataTable .ColumnHeads = True .ColumnCount = counter + 1 .List = TSelected_Range End With