在<em>Excel</em>的VBA里如何获取活动单元格的行数列数-excel vba活动单元

给你个列子 在 C列找 包含百 “宁波” 的单元格 ，如果度 是完全匹配 XLPART 改成版XLWHOLE
Sub 查找()
Set findcell = Columns("c").Find("宁波", LookAt:=xlPart)
If Not findcell Is Nothing Then
MsgBox findcell.Row
Else
MsgBox "没找到符合条权件的单元格"
End If
End Sub

应该是活动单元格的行号和列号吧
行号 = ActiveCell.Row
列号 = ActiveCell.Column

1、第一种方法： ActiveSheet.Range("A" & Rows.Count).End (xlUp).Row

2、第回二种方法：ActiveSheet.Range("a1048576").End(xlUp).Row

如果是答低版本的OFFICE用ActiveSheet.Range("a65536").End(xlUp).Row

3、第三种方法：ActiveSheet.Cells(Rows.Count,1).End(3).Row

4、第四种方法：ActiveSheet.range("A1").CurrentRegion.Rows.Count

5、第五种方法：ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

6、第六种方法：ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

7、第七种方法：MaxRow  =Application.Evaluate("=MAX((A1:A1048576<>"""")*ROW(1:1048576))")

'单元格知触发事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "当前单道元格内的行号是:" & Target.Row
End If
End Sub
用命令按容钮的宏:
Sub YY()
MsgBox "当前单元格的行号:" & ActiveCell.Row
End Sub