新手求助, 请教各位大神，如何对比文本中的英文及数字

Mygame01

[求助]“字段A”和“字段B”，希望仅对比里面的英文及数字，确认是同一楼层同一房型并对不同的内容，通过颜色标识。
具体看附件，万分感谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "\d楼[A-Z]\d"
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     .Range("c2:c" & r).ClearContents
    
12.     arr = .Range("a2:c" & r)
    
13.     For i = 1 To UBound(arr)
    
14.       Set mh1 = reg.Execute(arr(i, 1))
    
15.       Set mh2 = reg.Execute(arr(i, 2))
    
16.       If mh1.Count > 0 And mh2.Count > 0 Then
    
17.         If mh1(0) = mh2(0) Then
    
18.           arr(i, 3) = True
    
19.         Else
    
20.           arr(i, 3) = False
    
21.         End If
    
22.       End If
    
23.     Next
    
24.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
25.   End With
    
26. End Sub
    

复制代码

chxw68

详见附件。

paciguard

如果只有三列数据，见附件。

cbtaja

使用自定义函数，提取字母、数字，再进行比较。
1.rar (14.17 KB, 下载次数: 11)

2017-7-21 14:55 上传

点击文件名下载附件

Mygame01

cbtaja 发表于 2017-7-21 14:55
使用自定义函数，提取字母、数字，再进行比较。

感谢大神，不过小弟，可以对比较为FLASE的内容中，英文和数字不一样的地方标注颜色吗？感谢感谢！

Mygame01

chxw68 发表于 2017-7-21 12:51
详见附件。

感谢大神，如果当中内容不是楼或者字段大小不一的情况，怎么弄呢？
例：
A列 李先生5楼C5座
B列  王先生5幢大楼C5座

对结果是FLASE的行，A列和B列中不同的地方可以标上颜色吗？

再次感谢！好人加分！

chxw68

Mygame01 发表于 2017-7-21 16:25
感谢大神，如果当中内容不是楼或者字段大小不一的情况，怎么弄呢？
例：
A列 李先生5楼C5座

你最好能多提供一些数据，这样便于从中寻找规律。

chxw68

详见附件。