vba - 将表格列中的所有单元格设置为特定值

Question

我目前正在处理一个数据集，该数据集的格式为带有标题的表格。我需要做的是循环浏览特定列中的所有单元格并更改内容。通过对 MSDN 的研究，我想出了以下 for 循环

for i = 1 to NumRows
    Cells(i,23).Value = "PHEV"
next i

因此，这会将第 23 列中的所有单元格更改为“PHEV”。但是，我不构建我自己使用的表，因此我不能保证我感兴趣的列将是第 23 列。

我想实现类似于以下内容的内容:

for i = 1 to NumRows
    Cells(i,[@[columnHeader]]).Value = "PHEV"
next i

当然，我知道该语法是不正确的，但希望它足以说明我的目标。

Answer 1

如果这实际上是一个 ListObject 表(从功能区插入表)，那么您可以使用表的 .DataBodyRange 对象来获取行数和列数。这会忽略标题行。

Sub TableTest()

Dim tbl As ListObject
Dim tRows As Long
Dim tCols As Long

Set tbl = ActiveSheet.ListObjects("Table1")  '## modify to your table name.

With tbl.DataBodyRange
    tRows = .Rows.Count
    tCols = .Columns.Count
End With

MsgBox tbl.Name & " contains " & tRows & " rows and " & tCols & " columns.", vbInformation

End Sub

如果您需要使用标题行，则无需使用 tbl.DataBodyRange，只需使用 tbl.Range。