作者:乔山办公网日期:
返回目录:excel表格制作
举例说明,有两个单元格:a1:存放abc a2:为空白。设计一个vba程序,zd判定a1和a2是否为空白,并将结果放在b1(放a1的结果版)权和b2(放a2的结果)
代码如下
Sub 判定()
Dim m_s As String
Dim m_t As Integer
Dim 结果 As String
Dim I As Integer
For I = 1 To 2
m_s = Cells(I, 1) '读取a列的值
m_t = Len(m_s)
If m_t > 0 Then
结果 = "非空值"
Else
结果 = "空值"
End If
Cells(I, 2) = 结果 '结果放到b列
Next
End Sub
执行代码后结果如图:
如要判断A1和B1单元格中的字copy符串是否相同,可以使用以下两种方法:
1、直接使用公式判断:=A1=B1 结果返回TRUE则两个单元百格内字符串相同,结果返回FALSE则两个单元格度内字符串不相同。
2、函数判断:可以使用EXACT函数判断,公式为:=EXACT(A1,B1) 结果返回TRUE则两个单元格内字符问串相同,结果返回FALSE则两个单元格内字符串不相同。
3、两种方法的不同点:第一种方法将忽略字母的大小写,第二种方法区分字母的大小写。答可以根据实际需求选择。
假设原始数据在A1中,B1中输入 =COUNTIF(A1,"*\*")=1 就可以了。如果A2和下面还有类似数据,将B1公式用自动填充柄下拉。
C2输入
=IF(COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A2&B2))=LEN(A2)+LEN(B2),"无","")
公式下拉