excel如何取得非空行数

1、Public Sub huodehangshu()

i = Worksheets(1).[e1048576].End(xlUp).Row

MsgBox iEnd Sub

2、在excel sheets(1)中加入一个命令按钮，然后双击进行vba编程

Private Sub CommandButton1_Click()Call huodehangshuEnd Sub