1

我正在尝试（但失败）在 ListObject 的 HeaderRowRange 中找到给定的字符串。我想提取 ListObject-Column Count（不是电子表格列数）。我正在尝试使用“.index”来解决，但是，它遇到了错误。下面的代码有什么问题？

请参阅屏幕截图以更好地理解我的目标：在 ListObject Column3 中是第 3 列，而在工作表中是第 6 列（F 列）。我希望我的代码中的 j 为 3（而不是 6）。

在此处输入图像描述

Sub MWE()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Sheets("worksheet1")
Dim lo As ListObject: Set lo = ws.ListObjects("table1")
Dim j As Long: j = lo.HeaderRowRange.Find("Column3", LookIn:=xlValues, LookAt:=xlWhole).Index
End Sub
4

3 回答 3

1

listobject table除了之外，还有几种方法可以访问该列hearderRow，希望对您有用

Sub tt()

Dim tb1 As ListObject
Dim rcol As Range

Set tb1 = Sheet1.ListObjects("Table1")
Set rcol = tb1.ListColumns("Ctry").DataBodyRange

Debug.Print rcol(3).Value  'Hawaii

End Sub

在此处输入图像描述

于 2021-06-03T08:08:44.687 回答
1

.Find返回一个范围对象。这是你正在尝试的吗？

Option Explicit

Sub Sample()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Sheets("worksheet1")
    Dim lo As ListObject: Set lo = ws.ListObjects("Table1")
    Dim aCell As Range
    Set aCell = lo.HeaderRowRange.Find("Column3", LookIn:=xlValues, LookAt:=xlWhole)

    If Not aCell Is Nothing Then
        MsgBox aCell.Column
    End If
End Sub

或者，您也可以使用Application.Match

Option Explicit

Sub Sample()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Sheets("worksheet1")
    Dim lo As ListObject: Set lo = ws.ListObjects("Table1")
    Dim j As Long: j = Application.Match("Column3", lo.HeaderRowRange, 0)
    
    MsgBox j
End Sub

PS：您的代码中也有错字。Dim lo As listoject应该Dim lo As ListObject

编辑

请参阅屏幕截图以更好地理解我的目标：在 ListObject Column3 中是第 3 列，而在工作表中是第 6 列（F 列）。我希望我的代码中的 j 为 3（而不是 6）。

在这种情况下，如果您的表格不是从 Col 开始的，A那么您将不得不进行范围调整。在第一个代码中更改MsgBox aCell.Column为。MsgBox aCell.Column - lo.HeaderRowRange.Column + 1

输出

在此处输入图像描述

于 2021-06-03T08:08:56.053 回答
0

由于我知道列标题的名称，我可以简单地使用此代码来获取 ListObject 中的列数：

j= lo.ListColumns("Column3").Index
于 2021-06-03T09:58:01.373 回答