作者:乔山办公网日期:
返回目录: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))")