Sub 获取最后一个非空单元格行号和列号()

 ‘获取最后一个非空单元格所在的行号

rh = Cells(Rows.Count, 1).End(xlUp).Row  'OK!,按A列的计，如A列只有A1=a，其余都空时,

且g13=b,所得结果＝1

　rh = [a65536].End(xlUp).Row  'OK!,按A列的计，如A列只有A1=a，其余都空时,且g13=b,所得结果＝1

Debug.Print rh

　a5 = Cells.SpecialCells(xlCellTypeLastCell).Row  'OK!如A列只有A1=a（其余都空时）,且G列只有g13=b（其余为空）,所得结果a5＝13。只认最后一个有数据（非空）单元格的所在行，而不管此非空单元格是在这一行的哪一列。

‘获取最后一个非空单元格所在的列号

ch1 = ActiveSheet.UsedRange.Columns.Count 'OK!,所得结果＝7，是按非空单元格所在的列计，而不管此非空单元格是在这一列的哪一行。

‘获取工作表中含有指定字符串的单元格所在的地址

Set dz = Sheets("s").Range("A1:A600").Find("营业收入")  '如字符串"营业收入"

     r1 = dz.Row    '找到的目标字符所在单元格[如cell(1,2)]的行号1，

     　MsgBox R1

     dz1 = dz.Address    '找到的目标字符所在单元格的地址，如cell(1,2)

End sub