Excel中如何用VBA判断行数？

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窗口，测试一下代码是否能够正确运行，可以看到结果很成功。

如果文本很大，那用拆岩裂for、do就太慢太慢了，我给大家枣尘一个快速查询的方法：

Dim Oc,Fs,S,X

Set Fs = Oc.OpenTextFile("旅闭C:\Test.Txt", 1)'用FSO打开TXT文件

S = Fs.ReadAll'获取全文

Fs.Close'关闭文件

X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '统计总行数:用字符串替换法得到一共多少个回车，然后再加一就得到总行数了

---