Excel VBA - 选择动态单元格范围

Question

我希望能够动态选择一系列单元格(标题行),其中行为1但列为1到最后一列,其中"A"是第一列,其中"M"是最后一列柱.我知道如何找到最后一列,但我不知道如何修改下面的范围来输入第一列和最后一列为"A"和"M".

 Range("A1:M1").Select

Answer 1

如果要选择包含所有标题单元格的变量范围:

Dim sht as WorkSheet
Set sht = This Workbook.Sheets("Data")

'Range(Cells(1,1),Cells(1,Columns.Count).End(xlToLeft)).Select '<<< NOT ROBUST

sht.Range(sht.Cells(1,1),sht.Cells(1,Columns.Count).End(xlToLeft)).Select

......只要该行上没有其他内容.

编辑:更新,以强调,当使用Range(Cells(...), Cells(...))它时,良好的做法是限定两者Range和Cells工作表参考.

Answer 2

sub selectVar ()
    dim x,y as integer
    let srange = "A" & x & ":" & "m" & y
    range(srange).select
end sub

我认为这是最简单的方法.