excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数

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

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

Function lines(r)  'r 为某单元格，如A1

rWrapText = False

x = rHeight

rWrapText = True

y = rHeight

lines = y / x

End Function

使用方法 lines(range("A1"))

思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x

A列最底端有数据的单元格

[a65536]end(xlup)row

如果是统计每列有多少非空单元格

就要调用COUNTA函数方便些

WorksheetFunctionCountA

(Range("A:A"))

因为你的x和y并不是读取行数 而是variant 是数组

所以必须要先activate那一页才对

给你举个例子

dim i%,j%

dim x,y

workbooksopen "d:\2xls"

workbooks("2xls")activate

i=Worksheets(1)[a65535]end(xlup)row 'i 和j是sheet1,2应用了行数 是整数，不用去激活那张sheet

j=Worksheets(2)[a65535]end(xlup)row

Worksheets(1)activate

x=Worksheets(1)range("a2:a" & range("a65535")end(xlup)row)

Worksheets(2)activate

y=worksheets(2)range("a2:a" & range("a65535")end(xlup)row)

1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，

2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，

3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：

4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中：

5、代码编写完成，点击运行子过程按钮（或按下F5），

6、最后返回Excel中，就可以看到得到了当前单元格的行号和列号，

以上就是关于excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数全部的内容，包括:excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数、请问如何用vba获取excel某一单元格中文字的行数（单元格是自动换行格式）、怎么用vba在excel中统计每列有多少行数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！