如何在两列中查找数据相同的一对组合

SteakJoe

如上图，A列为字母，B列为对应数字，我想要筛选出字母列和数字列完全相同的组合，如红色标示的字母A对应数字1，蓝色标示的字母A对应数字2，黑色标示的字母E对应数字5，即A1A2A3B1B2B3以此类推，将AB两列如此排序后合并其C行对应单元格，如果有AB两列数据相同则合并，如果没有则单独一行，完成后效果如下

以上两个图都是我用手输入的简易例子，希望可以表达清楚，想使用VBA实现此功能，望各位赐教，感激不尽！
表格已随附件上传。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Application.ScreenUpdating = False
   
6.   Application.DisplayAlerts = False
   
7.   Set d = CreateObject("scripting.dictionary")
   
8.   With Worksheets("sheet1")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     .Range("a1:c" & r).Sort key1:=.Range("a1"), order1:=xlAscending, key2:=.Range("b1"), order2:=xlAscending, Header:=xlNo
    
11.     For i = 1 To r - 1
    
12.       If .Cells(i, 1) = .Cells(i + 1, 1) And .Cells(i, 2) = .Cells(i + 1, 2) Then
    
13.         .Cells(i, 3).Resize(2, 1).Merge
    
14.       End If
    
15.     Next
    
16.   End With
    
17. End Sub
    

复制代码

chxw68

详见附件。

SteakJoe

chxw68 发表于 2017-10-22 22:09
详见附件。

首先非常感谢您的回答，实现的很完美。
下面有几个小问题想请教一下：
1.是使用的字典法进行实现的吗，可以讲下您实现的思路吗
2.作为初期接触VBA，以录制为主的初学者角度，应该怎样看懂您的代码呢，我自己可否在您的宏上再进行操作和录制加以其他功能
再次感谢您的解答，为我这方面的工作起步带来了很大帮助！

chxw68

SteakJoe 发表于 2017-10-22 22:47
首先非常感谢您的回答，实现的很完美。
下面有几个小问题想请教一下：
1.是使用的字典法进行实现的吗， ...

没用字典，就是简单的排序、合并

SteakJoe

chxw68 发表于 2017-10-23 08:04
没用字典，就是简单的排序、合并

老师您好，再次感谢您的解答。
今天研究这个表格的时候出现了一些变化，可否改成将A列B列进行此操作改为A列I列，也不需要合并单元格了，烦请老师帮我改一下代码，辛苦老师了。
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim d As Object
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("sheet1")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("a1:c" & r).Sort key1:=.Range("a1"), order1:=xlAscending, key2:=.Range("b1"), order2:=xlAscending, Header:=xlNo
    For i = 1 To r - 1
      If .Cells(i, 1) = .Cells(i + 1, 1) And .Cells(i, 2) = .Cells(i + 1, 2) Then
        .Cells(i, 3).Resize(2, 1).Merge
      End If
    Next
  End With
End Sub

martinchen99

这类型题目不感兴趣！最近怎么论坛还就总不停的冒出来

martinchen99

楼主的需求真是无语，上面老师的代码已经很清晰。你就不会根据自己新的需求修改下？难道改改字母，改改数字也很复杂？只能说明您没有真正去理解老师给你的代码，您就不是在研究学习VBA，您只是为完成功课而已！我觉得这是对帮你的老师很不尊重。可能今天对楼主说的有些苛刻了，只是发现近期这类人太多，都忘却了论坛的初衷了，这是学习和交流的平台，不是打包发布任务的！