Excel 2010 VBA 范围不会从命名表中选择正确的数据

Question

我尝试从命名范围中选择多个列。我用一些变量构建了应该选择的字符串：

Dim onecolumn as Integer, lastcolumn as Integer
Dim tblTable as ListObject
Dim strforrange as String

Set tblTable = Sheet1.ListObjects("Table1")
onecolumn = 3
lastcolumn = tblTable.Range.Columns.Count 

strforrange = tblTable & "[[#All],[Column" & onecolumn & "]:[Column" & lastcolumn - 1 & "]]"

Range(strforrange).Select

我逐步运行代码并检查了“strforrange”变量。即使正确，所选列也与字符串中所述的列不同。

有没有其他方法可以获取命名表的范围，或者有人知道解决方案吗？

Answer 1

以下内容应该有所帮助；我已经引用了一个有用的函数，它将列号转换为相应的列字母（信用：Function to convert column number to letter?@brettdj 的回答）

Function Col_Letter(lngCol As Long) As String
Dim vArr
vArr = Split(Cells(1, lngCol).Address(True, False), "$")
Col_Letter = vArr(0)
End Function

使用此函数，您只需使用 DataBodyRange 函数和 Columns 即可选择所需的范围：

Sub SelectSpecificDataRange

Dim startColumn as Long, lastColumn as Long
Dim tblTable as ListObject
Dim startColumnLetter, lastColumnLetter as String

Set tblTable = Sheet1.ListObjects("Table1")
startColumn = 3
startColumnLetter = Col_Letter(startColumn)
lastColumn = tblTable.Range.Columns.Count
lastColumnLetter = Col_Letter(lastColumn)

tblTable.DataBodyRange.Columns(startColumnLetter & ":" & lastColumnLetter).Select

End Sub