使用标题名称select多列 – Excel VBA

我有一个需求,我需要select多个列只使用标题名称,这是我的代码,

colmz = WorksheetFunction.Match("Sheet1", Sheets("Age").Rows(1), 0) Nrowz = ActiveSheet.Cells(Rows.Count, colmz).End(xlUp).Row Sheets("sheet1").Range(Cells(1, colmz), Cells(Nrowz, colmz)).Select colm = WorksheetFunction.Match("Sheet1", Sheets("Gender").Rows(1), 0) Sheets("sheet1").Range(Cells(1, colm), Cells(Nrowz, colm)).Select 

我能够单独select它们,但不能在一起。 如何在范围函数中使用它们并将两个列一起select。 请给我你的build议。 提前致谢。

你想select两个范围的UNION 。 为了清楚起见,我已经为两个区域创build了.select 。 使用这种方法,您可以指定要使用的工作表。

 Dim age_range, gender_range As Range colmz = WorksheetFunction.Match("Sheet1", Sheets("Age").Rows(1), 0) Nrowz = ActiveSheet.Cells(Rows.Count, colmz).End(xlUp).Row colm = WorksheetFunction.Match("Sheet1", Sheets("Gender").Rows(1), 0) Set age_range = Sheets("sheet1").Range(Cells(1, colmz), Cells(Nrowz, colmz)) Set gender_range = Sheets("sheet1").Range(Cells(1, colm), Cells(Nrowz, colm)) Sheets("sheet1").Range(Union(age_range, gender_range).Address).Select 

我尝试了联合function,它为我工作

 Union(Range(Cells(1, colmz), Cells(Nrowz, colmz)), Range(Cells(1, colm), Cells(Nrowz, colm))).Select 

请让我知道,如果有比这更好的做法