vba判断excel多少行,电子表格vba判断有多少行
1. vba判断有多少行
我们用到VBA3行代码,自定义一个函数就能判断所有格式,在Range对象中有一个属性叫"NumberFormatLocal",这个属性支持读写访问,也就是说可以用它设置单元格格式和或取格式.举例来写一个实例
在VBA中定义公用函数:
Public Function IsFormat(pRange As Range) As String
'IsFormat 就是我们声明的函数,它有个参数 pRange 这个参数代表单元格对象,返回值是字符串
在这个函数中写入代码:
IsFormat=
pRange.NumberFormatLocal
End Function
写好这个代码后就能在公式栏里使用了,比如A1中有个数字 ,在B1中写入= IsFormat(A1),此时就能知道它是什么格式了,
2. vba判断有多少行字符
sub finstr() '这个可以检测sheet1里面有数据的区域里是否包含你要查找的字符,如果有会依次提示 dim rng as rangedim findstr as stringfindstr="某字符" '这个某字符你替换成你需要的字符即可For Each rng In Sheet1.UsedRange'注意这里的检测sheet1里面的数据区域 如果是其它sheet需改 If rng LIKE "*" & findstr & "*" Then msgbox "单元格" & rng.address & "包含" & findstr End IfNextend sub
3. vba 总行数
直接用循环，遍历所有行，判断行的隐藏属性，并且计数。
4. vba计算有数据的行数
如果单元格内是强制换行的话，可以利用VBA进行判断，代码如下：
Sub test() Dim StaR As String Dim i, m As Long StaR = Sheet2.Range("A1").Value For i = 1 To Len(StaR) If Mid(StaR, i, 1) = Chr(10) Then '计算字串中有几个chr(10) m = m + 1 End If Next i MsgBox "共有" & m + 1 & "行" End Sub
5. vba判断有多少行数
你是意思是不是判断工作中已经 使用的最大 行数
工一个每一行都有数的列，加入是A列
excel2007及以上
n=thisworkbook.worksheets("sheet1").range("A1048576").end(xlup).row
excel2003
n=thisworkbook.worksheets("sheet1").range("A65536").end(xlup).row
6. vba计算多少行
1、VBA肯定能调用工作表函数，调用方法也是很简单，只需在函数名称前面加上：Application.WorksheetFunction.函数名(参数)。
其参数的使用规则与在工作表中使用要求完全一致。除了能调用工作表函数，VBA自身内置也有很多函数可以使用。因为是VBA自身内置的函数，所以在使用时，在前面可以加上：VBA.函数名，也或者直接调用写函数名。经常有人可能用不同版本的办公程序打开有代码的工作簿，结果就有可能会出现如“找不到工程或库”的提示。怎么办呢？如果是因为VBA自身内置函数的原因，则可以在前加上“VBA.”就行了。
当然，也可在 VBE界面中菜单【工具】->【引用】打开引用对话框，查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选，确定，基本就可以了。现在总结下常用的VBA自身内置函数如下（中间文字过长，或以跳转到最下面看看“其他常用函数”，很有用的哦。）：
2、测试类函数：
IsNumeric(x) - 是否为数字, 返回Boolean结果。
IsDate(x) - 是否是日期, 返回Boolean结果。
IsEmpty（x） - 是否为Empty, 返回Boolean结果。
IsArray(x) - 指出变量是否为一个数组。
IsError(expression)- 指出表达式是否为一个错误值。
IsNull(expression)- 指出表达式是否不包含任何有效数据 (Null)。
IsObject(identifier)- 指出标识符是否表示对象变量。
3、数学函数：
Sin(X)、Cos(X)、Tan(X)、Atan(x) - 三角函数，单位为弧度。
Log(x)、Exp(x) - 返回x的自然对数，指数。
Abs(x) - 返回x的绝对值。
Int(number)、Fix(number) - 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8。
Sgn(number) - 返回一个 Variant (Integer)，指出参数的正负号。
Sqr(number) - 返回一个 Double，指定参数的平方根。VarType(varname) -返回一个 Integer，指出变量的子类型。
Rnd(x) - 返回0-1之间的单精度数据，x为随机种子。
Round(x,y)- 把x四舍五入得到保留y位小数的值。
4、字符串函数：
Trim(string)、Ltrim(string)、Rtrim(string) - 去掉string左右两端空白，左边的空白，右边的空白。
Len(string) - 计算string长度
Replace(expression,find,replace)- 替换字符串。
Left(string, x)、Right(string, x)、Mid(string, start,x)- 取string左/右/指定段x个字符组成的字符串Ucase(string)、
Lcase(string) - 转换字符串为大、小写Space(x) - 返回x个空白的字符串
Asc(string) - 返回一个 integer，代表字符串中首字母的字符代码
Chr(charcode) - 返回 string，其中包含有与指定的字符代码相关的字符
InStr() - 返回一个字符串在另外一个字符串中的位置，返回值为Variant(Long)型。
5、转换函数：
CBool(expression)- 转换为Boolean型
CByte(expression)- 转换为Byte型
CCur(expression) -转换为Currency型
CDate(expression)- 转换为Date型
CDbl(expression) -转换为Double型
CDec(expression)- 转换为Decemal型
CInt(expression) -转换为Integer型
CLng(expression) -转换为Long型
CSng(expression) -转换为Single型
CStr(expression) -转换为String型
CVar(expression) - 转换为Variant型
Val(string) - 转换为数据型
Str(number) - 转换为String
5、时间函数：
Now、Date、Time - 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
Timer - 返回一个 Single，代表从午夜开始到现在经过的秒数。
TimeSerial(hour,minute, second) - 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
DateDiff(interval,date1, date2[, firstdayofweek[, firstweekofyear]]) - 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
Second(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。
Minute(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。
Hour(time) - 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。
Day(date) - 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
Month(date) - 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。
Year(date) - 返回 Variant (Integer)，包含表示年份的整数。
Weekday(date,[firstdayofweek]) - 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
其它常用函数：
Shell - 运行一个可执行的程序。
InputBox - 这个太熟悉了，简单输入对话框。这个需要注意与Application.InputBox(更强大，内置容错处理，选择取消后返回false)区分，而这个函数不含有容错处理，而且选择取消后返回空串(零个字节的字符串)。
MsgBox - 这个更不用说了，简单信息显示对话框，其实也是一种简单的输入手段。
Join - 连接数组成字符串。
Split - 拆分字符串成数组。
RGB - 返回指定R、G、B分量的颜色数值。
Dir - 查找文件或者文件夹。
IIF(expression,truePart, falsePart) - IF语句的“简化版本”(比喻，当然并不一样)；expression为true的话返回truePart，否则返回falseParth。Choose(index,choice1,...choiceN) - 选择指定Index的表达式，Index可选范围是1到选项的总数。
Switch(exp1,value1,exp2,value2,...expN,valueN)- 从左至右计算每个exp的值，返回首先为true的表达式对应的value部分。如果所有的exp值都不为true，则返回Null。注意虽然只返回一个部分，但是这里所有的表达式exp1到expN都是要被计算的，实际使用中要注意这个副作用。
7. vba判断有多少行字
首先用代码让其自动调整到最适合的行高，然后取得行高，这个行高就是最适合的行高。
Sub Macro2()
Dim k '记录最适合的行高
Rows("1:1").EntireRow.AutoFit
k = Rows("1:1").Height
End Sub
8. vba判断用了多少行
1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。
2、在打开的excle窗口，依次点击工具栏“开发工具”——“VisualBasic”或直接按快捷键“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)ThenMsgBox"yes" Else MsgBox"no" EndIf6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。
9. vba判断行数
Function lines(r) 'r 为某单元格，如A1r.WrapText = Falsex = r.Heightr.WrapText = Truey = r.Heightlines = y / xEnd Function使用方法 lines(range("A1"))思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x
10. vba筛选后的行数
1. 打开电脑后，找到准备好的excel表格打开。
2. 依次选择上方菜单栏的“开发工具”---“Visual Basic”。
3. 进入VBA编辑界面中，双击左侧数据所在的工作表，将在右侧代码编辑区显示。
4. 接下来输入代码：
例如：sub 鱼木混猪()
msgbox range("A65536").end(3).row
end sub
代码的意思即将光标定位在A65536单元格中，按下Ctrl+向上箭头组合键，自动选择最后一个非空行，进而获得行号。
代码输入好之后，选择上方的“运行子程序”。
5. 我们就得到了A列最后一个非空行的行号。
以上就是怎么利用Excel表格中的VBA得到最大非空行数的具体操作步骤。