A、B、C三列字符串对比，如何实现

wwdfefgg · 发表于 2021-9-15 16:05

A、B、C三列字符串对比，如果3列中分别都有一个单元格的前6个字母相同，就将相同的字母提取出来，放到F列

比如

A列有 TRTR06-A02B-0S-14.ALK
B列有 TRTR06-A02B-0S-13.ALK
C列有 TRTR06-A02B-0S-10.ALK

就将TRTR06放到F列

test.rar (49.21 KB, 下载次数: 30)

一小小猪 · 发表于 2021-9-15 16:28

供参考，看是否想要的结果

lsdongjh · 发表于 2021-9-15 16:40

字典的简单应用

lsdongjh · 发表于 2021-9-15 16:42

test.rar (61.32 KB, 下载次数: 32)

DevilW · 发表于 2021-9-15 16:43

lcluck2002 · 发表于 2021-9-15 17:02

lsdongjh 发表于 2021-9-15 16:42

优秀的代码如果没有清晰的注释，对于我们小白来讲，无异于天书啊。大哥。

wwdfefgg · 发表于 2021-9-15 17:03

多谢各位大佬。。。

astupig · 发表于 2021-9-16 13:55

Sub Test()
lastC = [c999999].End(3).Row
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
ReDim arrNew(1 To lastC, 1 To 1)
arr = UsedRange
For i = 2 To UBound(arr)
If arr(i, 1) <> "" Then d(Left(arr(i, 1), 6)) = ""
If arr(i, 2) <> "" Then dd(Left(arr(i, 2), 6)) = ""
Next
MsgBox 1
For i = 2 To UBound(arr)
If d.exists(Left(arr(i, 3), 6)) And dd.exists(Left(arr(i, 3), 6)) Then
n = n + 1
arrNew(n, 1) = Left(arr(i, 3), 6)
End If
Next
[f2].Resize(n, 1) = arrNew
End Sub

复制代码

AmoKat · 发表于 2021-9-16 21:33

Sub test4AmoKat()
Dim d, i, j, Arr, K$, x
Set d = CreateObject("Scripting.Dictionary") '字典
Arr = [a1].CurrentRegion 'Arr = A1:C1963
For i = 1 To 3
      For j = 2 To UBound(Arr)
         If Len(Arr(j, i)) > 6 Then
            K = Left(Arr(j, i), 6) '前6個字元為Key
            d(K) = K & " " & Left(Mid(d(K), 8, 3) & i, i) '後面標註123為ABC欄都有
         End If
      Next
Next
' [H:H].Clear
' Range("H1").Resize(d.Count, 1) = Application.Transpose(d.items)

'刪除不完整資料
For Each x In d.items
      If Mid(x, 8, 3) <> "123" Then d.Remove Left(x, 6)
Next
[G:G].ClearContents
Range("G1").Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub

yanjie · 发表于 2021-9-16 21:41

3列取每列头6个字符是否一致_数据透视表20210916.rar (208.91 KB, 下载次数: 5) 数据透视表做的

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

[求助] A、B、C三列字符串对比，如何实现

评分

评分

评分

最新热点 /1