求帮忙将多列数据关联

fangfhf

怎么样将多列数据进行关联？谢谢各位大侠！

wengjl

你的压缩包下载时360有警告。请杀毒后重新上传

ykcbf1100

类似的求助帖子好象在哪里看到过。

看了一下，原来那个帖子就是你发的，就是上一个帖子。
怎么，格式变了一下就不会改了啊

fangfhf

wengjl 发表于 2024-1-25 10:24
你的压缩包下载时360有警告。请杀毒后重新上传

我杀了一下，没有毒啊~

fangfhf

ykcbf1100 发表于 2024-1-25 10:27
类似的求助帖子好象在哪里看到过。

看了一下，原来那个帖子就是你发的，就是上一个帖子。

是的，还需要帮忙啊！

ykcbf1100

参与一下，代码以附件为准。

1. Sub ykcbf()   '//2024.1.25
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     r = Me.Cells(Rows.Count, "a").End(xlUp).Row
   
6.     Set Rng = Me.Range("a2:ar" & r)
   
7.     With Rng
   
8.         .Parent.Sort.SortFields.Clear
   
9.         .Sort Key1:=.Item(1), Order1:=1, Key2:=.Item(2), Order2:=1, Header:=2
   
10.     End With
    
11.     arr = Me.Range("a1:ar" & r)
    
12.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) + 1)
    
13.     For i = 2 To UBound(arr)
    
14.         m = m + 1
    
15.         brr(m, 1) = m
    
16.         For j = 1 To UBound(arr, 2)
    
17.             brr(m, j + 1) = arr(i, j)
    
18.         Next
    
19.     Next
    
20.     Me.[av2:vh10000].ClearContents
    
21.     With Me.[av2].Resize(m, UBound(brr, 2))
    
22.         .Value = brr
    
23.         .HorizontalAlignment = xlCenter
    
24.         .VerticalAlignment = xlCenter
    
25.         .Borders.LineStyle = 1
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

ykcbf1100

fangfhf 发表于 2024-1-25 10:38
是的，还需要帮忙啊！

这个简单，就排个序，加个序号。

附件供参考。。。

fangfhf

ykcbf1100 发表于 2024-1-25 10:47
这个简单，就排个序，加个序号。

附件供参考。。。

不是的，这样过去之后，原来名单没有关联的人不能少掉的，现在发现没有了，现在的是和前面一模一样的了

ykcbf1100

fangfhf 发表于 2024-1-25 11:16
不是的，这样过去之后，原来名单没有关联的人不能少掉的，现在发现没有了，现在的是和前面一模一样的了

怎么关联？

fangfhf

ykcbf1100 发表于 2024-1-25 11:23
怎么关联？

就是右边的名单是全部名单，但是左边名单只是右边其中的一部分，我是想把左边的名单及同一行的数据自动对应的右边名单中去，不把顺序打乱，也不删除左边没有的名单