请问怎么查找两列姓名相同或不相同

mohao · 发表于 2020-1-31 10:42

可能两列名称有空格或者其它什么格式
用函数 IF(A2=B2,1,0) 不行，
用代码也不行
For i = 1 To 30000
If Cells(i, 1) = Cells(i, 2) Then
Cells(i, 3) = "相同"
Else
Cells(i, 3) = "不同"
End If
Next
End Sub

请高手指点一下

dandan076 · 发表于 2020-1-31 10:57

嗯……因为你弄出来的那个本来就是不一样的；B列那个有换行符在的

mohao · 发表于 2020-1-31 11:01

dandan076 发表于 2020-1-31 10:57
嗯……因为你弄出来的那个本来就是不一样的；B列那个有换行符在的

是啊，怎么批量处理啊？

wangweihebtu · 发表于 2020-1-31 11:02

本帖最后由 wangweihebtu 于 2020-1-31 11:06 编辑

一个公式就可以解决问题

如果想去掉不可见字符，用clean公式即可

dandan076 · 发表于 2020-1-31 11:07

一般来说，这种要比较的时候，都是先把空格替换掉；然后再把换行符替换（Ctrl+enter）；之后再用clean清除看不到的符号；最后再替换
你可以用len或者lenb判断字符个数

mohao · 发表于 2020-1-31 12:35

wangweihebtu 发表于 2020-1-31 11:02
一个公式就可以解决问题

如果想去掉不可见字符，用clean公式即可

用 clean公式一样还会存在问题

shenjianrong163 · 发表于 2020-1-31 13:15

Sub test()
Dim arr, i, j
With Worksheets("Sheet1")
      arr = .UsedRange
      Set oRegex = CreateObject("Vbscript.Regexp")
      oRegex.Global = True
      oRegex.Pattern = "[\u0001\u0009\u000a\u000d\u001c-\u0020\u007f-\u00fe]"
      For i = 2 To UBound(arr)
         For j = 1 To UBound(arr, 2)
            If IsError(arr(i, j)) Then arr(i, j) = ""
            arr(i, j) = oRegex.Replace(arr(i, j), "")
         Next
         If arr(i, 1) = arr(i, 2) Then
            arr(i, 3) = "相同"
         Else
            arr(i, 3) = "不相同"
         End If
      Next
      [A1].Resize(UBound(arr), 3) = arr
End With
End Sub

相同与不相同.rar (478.54 KB, 下载次数: 11)

taller · 发表于 2020-1-31 13:18

mohao 发表于 2020-1-31 12:35
用 clean公式一样还会存在问题

需要根据数据来确定使用什么方法清理数据，Clean只能清理部分特殊字符

重要: CLEAN 函数用于删除文本中 7 位 ASCII 码的前 32 个非打印字符（值为 0 到 31）。在 Unicode 字符集中，有附加的非打印字符（值为 127、129、141、143、144 和 157）。 CLEAN 函数自身不删除这些附加的非打印字符。

shenjianrong163 · 发表于 2020-1-31 13:22

先发张图，代码需要审核，审核通过才可见。

renkangjizhen · 发表于 2020-1-31 13:38

用instr函数不就可以了吗？

		自动登录	找回密码
密码			免费注册

[求助] 请问怎么查找两列姓名相同或不相同

评分