如何用行列索引设置VBA动态查找范围（含第1、2行）

要实现覆盖第1、2行且延伸至两行中最后一个有数据的列，你可以先分别获取两行的有效列数，取最大值作为范围的结束列，再构建查找区域：

Dim lastCol As Long
' 获取第1行最后一个有数据的列
lastCol = sht.Cells(1, sht.Columns.Count).End(xlUp).Column
' 对比第2行的最后列，取更大的值确保覆盖两行所有数据列
lastCol = Application.Max(lastCol, sht.Cells(2, sht.Columns.Count).End(xlUp).Column)

' 构建包含第1、2行，从A列到lastCol的范围，再执行查找
Set paramname = sht.Range(sht.Cells(1, 1), sht.Cells(2, lastCol)).Find( _
    What:=colname, _
    Lookat:=xlWhole, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious, _
    MatchCase:=True _
)

关键说明 #

• 先分别获取第1行和第2行的最后数据列，用Application.Max取两者的最大值，避免其中一行数据列数更少导致范围遗漏
• 用sht.Cells(1,1)和sht.Cells(2, lastCol)动态构建范围，替代硬编码的A1:Z2，确保范围始终覆盖两行所有有效数据列
• 保留你原有的Find参数，保证查找逻辑不变

内容的提问来源于stack exchange，提问作者user20114520