'核对列2中的内容在列1中是否存在,结果放在列3中
Sub text()
Dim bool '是否存在
For j = 1 To 86 '要核对的内容,放在第2列
bool = False
For i = 1 To 327 '被查找的内容,放在第1列
If Trim(Cells(i, 1).Value) = Trim(Cells(j, 2).Value) Then
bool = True '存在
Exit For
End If
Next i
If bool = False Then
Cells(j, 3).Value = "不存在" '核对结果放在第3列
End If
Next j
End Sub
excel核对第2列中的内容在第1列中是否存在
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17113 阅读
-
Bootstrap4显示和隐藏元素 5076 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4130 阅读
-
-
loadjs - javascript动态载入css和js文件 2092 阅读
-
BT宝塔中安装nodejs 2026 阅读
-
github无法加载或不显示图片问题 1910 阅读