vba救助，获取不连续的数据的首行数与尾行数

第一段尾行：行号1=thisworkbooksheets("Sheet1")range("a1")end(xldown)row

第二段尾行：行号2=thisworkbooksheets("Sheet1")range("a65536")end(xlup)row

第二段首行：行号3=thisworkbooksheets("Sheet1")range("a" & 行号3)end(xlup)row

hs1 = S2[A65535]End(xlUp)Row 改为

hs1 = [A65535]End(xlUp)Row

或 hs1 = sheets("S2")[A65535]End(xlUp)Row

在对应工作表中粘贴以下代码（不要新建模块！！！）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If (TargetColumn >= 2 Or TargetColumn <= 8) And TargetRow = 1 Then   '选定B1:H1时

    Range("A1") = TargetRow    'A1显示选定的行数

    Range("A2") = TargetColumn    'A2显示选定的列数

End If

End Sub

以上就是关于vba救助，获取不连续的数据的首行数与尾行数全部的内容，包括:vba救助，获取不连续的数据的首行数与尾行数、vba获取行数的问题、excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！