使用 Excel VBA 选择表格中的整列
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/43541445/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Select entire column in table using Excel VBA
提问by Ben A
I have a table in an excel sheet and I want to select the entire first row. Is there an easier/faster way to reference a table than the normal
我在 Excel 工作表中有一个表格，我想选择整个第一行。是否有比普通方法更简单/更快的方法来引用表
Range("A2").End(xlDown).Select
method? Seems that by using a Table I should gain an easier access route to the data. Thanks.
方法？似乎通过使用表，我应该可以获得更轻松的数据访问路线。谢谢。
回答by P??
With these codes you can select different parts of a table.
使用这些代码，您可以选择表格的不同部分。
Entire Table:ActiveSheet.ListObjects("Table1").Range.Select
整个表：ActiveSheet.ListObjects("Table1").Range.Select
Table Header Row:ActiveSheet.ListObjects("Table1").HeaderRowRange.Select
表格标题行：ActiveSheet.ListObjects("Table1").HeaderRowRange.Select
Table Data:ActiveSheet.ListObjects("Table1").DataBodyRange.Select
表数据：ActiveSheet.ListObjects("Table1").DataBodyRange.Select
Third Column:ActiveSheet.ListObjects("Table1").ListColumns(3).Range.Select
第三栏：ActiveSheet.ListObjects("Table1").ListColumns(3).Range.Select
Third Column (Data Only):ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select
第三列（仅数据）：ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select
Select Row 4 of Table Data:ActiveSheet.ListObjects("Table1").ListRows(4).Range.Select
选择表数据的第 4 行：ActiveSheet.ListObjects("Table1").ListRows(4).Range.Select
Select 3rd Heading:ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select
选择第三个标题：ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select
Select Data point in Row 3, Column 2:ActiveSheet.ListObjects("Table1").DataBodyRange(3, 2).Select
选择第 3 行第 2 列中的数据点：ActiveSheet.ListObjects("Table1").DataBodyRange(3, 2).Select
Subtotals:ActiveSheet.ListObjects("Table1").TotalsRowRange.Select
小计：ActiveSheet.ListObjects("Table1").TotalsRowRange.Select
For a full guide on tables see The VBA Guide To ListObject Excel Tables.
有关表格的完整指南，请参阅ListObject Excel 表格的 VBA 指南。
