从表格中获取单元格的值作为string？

我有一个名为tblPlayerList的表，它在列A [Name]中具有播放器名，并且它们的列在[WK01]到[WK45]列中的点如下所示：

NAME POS CLUB WK01 WK02 WK03 David Ospina GK Arsenal 12 Emiliano Martinez GK Arsenal Petr Cech GK Arsenal Wojciech Szczesny GK Arsenal Calum Chambers DEF Arsenal Gabriel Paulista DEF Arsenal Héctor Bellerín DEF Arsenal Isaac Hayden DEF Arsenal 

我已经为玩家匹配了行号，并将星期编号存储为string“WK01”，我为了引用列标题而故意转换为该格式，但无法使其工作。

我怎么能从一个玩家那里得到WK01的分数，比如说第一排？

 Dim RowNum, GetPoints As Integer Dim ColumnName As String RowNum = 1 ColumnName = "WK01" GetPoints = ??? 

Answer 1

我只是假设表SheetObject（又名结构化表 ）在Sheet1上被命名为Table1。

 Dim GetPoints As Long With Worksheets("Sheet1") 'set this worksheet reference properly GetPoints = Application.Index(.Range("Table1"), _ Application.Match("David Ospina", .Range("Table1[NAME]"), 0), _ Application.Match("WK01", .Range("Table1[#Headers]"), 0)) End With 

你可以使用分配的stringvariablesreplace我例子中的硬编码string。