1、Public Sub huodehangshu()i = Worksheets(1).[e1048576].End(xlUp).RowMsgBox iEnd Sub
2、在excel sheets(1)中加入一个命令按钮,然后双击进行vba编程Private Sub CommandButton1_Click()Call huodehangshuEnd Sub
1、Public Sub huodehangshu()i = Worksheets(1).[e1048576].End(xlUp).RowMsgBox iEnd Sub
2、在excel sheets(1)中加入一个命令按钮,然后双击进行vba编程Private Sub CommandButton1_Click()Call huodehangshuEnd Sub