和我有同样的问题 我也求解
用函数不行吗?row（）
Range("A1").End(xlDown).Select
r1 = ActiveCell.Row
前提,A行不为空,且没有空行
Dim rng As Range
Dim i As Integer, j As Integer
Set rng = xl.ActiveSheet.UsedRange
dim TT() as String
dim ss as Integer
open txt for input as #1
Do While Not EOF(1)
Input #1, TT(ss)
ss=ss◆1
Loop
Close 1#
txt 是txt文件名 ss 就是行数
Line Input就是每次读取一行,n = n ◆ 1就是每次读取一行时就把n递增1,所以程序运行完毕后n就是行数了.
还有更简单的方法：
MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) ◆ 1 & " 条记录.", vbInformation
Close #1
三行即可
你就是求一个二维数组的第一维数据和第二维数据的大小---
那要求他的第一维大小就是 ubound(a)-lbound(a)◆1
二维数组的一般格式是 X(A,B) 的格式,你的意图是想知道 A 和 B 的值,给你一个思路：
①.、首先大概确定 A 的最大值, A 是列数,定义一个一位数组,比如10列 LS(1 TO 10),将各列的检测列数存储在这个数组中,检测完成后得到 LS() 数组的最大值,就是列数；
如果有问题,请本站HI
Msgbox Sheet1.UsedRange.Rows.Count
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用，就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！