<em>Excel</em>中如何用VBA判断行数

你是意思是不是判断工作中已抄经 使用的最大 行数

工一个每一行都有数的列，加入是zhidaoA列

excel2007及以上

n=thisworkbook.worksheets("sheet1").range("A1048576").end(xlup).row

excel2003

n=thisworkbook.worksheets("sheet1").range("A65536").end(xlup).row

你是意思是不是判断工作知中已经 使用的道最大 行数

工一个每一行都有专数的列，属加入是A列

excel2007及以上

n=thisworkbook.worksheets("sheet1").range("A1048576").end(xlup).row

excel2003

n=thisworkbook.worksheets("sheet1").range("A65536").end(xlup).row

你的判断是为0而不是为空，抄如果是判断为空，=""
循环如下
sub test ()
i=range("A65536").end(xlup).row‘判断A列最后一行的行号
for x=1 to i’建立循环从第一知行到最后一行
if cells(x,1)=0 then cells(x,6)=cells(x,1) & cells(x,2) & cells(x,3)'判断A值为0时，如果是判断为道空，=0改变＝""
next x
end sub

1、同时按下“win+R”键，在打开的运来行对话框中输入“excel”回车，打开一个新建的excel文档。

2、在打开的excle窗口，依次点击工具栏“开发工具”源——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。

3、双击左侧工程窗口中百的“sheet1”，打开“sheet1”代码编度辑窗口。

4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

5、在过程中知写入代码：

If (Target.Columns.Count = Sheet1.Columns.Count) And (Target.Row <= Range("b4").Row) And (Target.Row + Target.Rows.Count > Range("b4").Row) Then

MsgBox "yes"   

Else    

MsgBox "no"    

End If

6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果道很成功。