乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何通过vba获取当前单元格所在行和列

如何通过vba获取当前单元格所在行和列

作者:乔山办公网日期:

返回目录:excel表格制作


在模块中定义2个全局变量iRow,iCol
然后在thisworkbook中的Workbook_Open()事件中,取得工作薄一开始时的初始单元格行号e68a84e8a2ade799bee5baa6e997aee7ad94339和列号,作为初始行号和列号:
Private Sub Workbook_Open()
iRow = ActiveCell.Row
iCol = ActiveCell.Column
End Sub

再然后在sheet1的Worksheet_SelectionChange(ByVal Target As Range)事件中,加下如下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim reRow As Integer, reCol As Integer
reRow = Target.Row
reCol = Target.Column
Target.Value = "移动前单元格行号是:" & iRow & vbCrLf & "移动前单元格列号是:" & iCol
Cells(iRow, iCol) = ""
iRow = reRow
iCol = reCol
End Sub

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

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

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

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

5、代码编写完成,点击运行子过程按钮(或按下F5),

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


sub aa()
    dim iRow,iCol
    irow=range("B2").row
    icol=range("B2").column
    msgbox "B2单元格的行号" & iRow &",列号是" & iCol
end sub


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))")

相关阅读

关键词不能为空
极力推荐
  • <em>vb</em>如何调用<em>excel函数</em>-Exce

  • 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的

ppt怎么做_excel表格制作_office365_word文档_365办公网