表2如何根据表1的排序生成到表3？

182197315

胡乱猜了一个
Sub 排序()
Dim i%, k%, x%, y%, arr, brr, temp
Dim d As New Dictionary, dic As New Dictionary
Sheet1.Activate
arr = Range("A3:D" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
    d(arr(i, 2)) = i
Next
Sheet2.Activate
brr = Range("A2:D" & Cells(Rows.Count, 2).End(xlUp).Row)
For k = 1 To UBound(brr)
    dic(brr(k, 2)) = brr(k, 1) & "-" & brr(k, 3) & "-" & brr(k, 4)
Next
For x = 1 To UBound(brr) - 1
    For y = x + 1 To UBound(brr)
        If d(brr(x, 2)) > d(brr(y, 2)) Then
            temp = brr(x, 2)
            brr(x, 2) = brr(y, 2)
            brr(y, 2) = temp
        End If
    Next
Next
For j = 1 To UBound(brr)
    brr(j, 1) = Split(dic(brr(j, 2)), "-")(0)
    brr(j, 3) = Split(dic(brr(j, 2)), "-")(1)
    brr(j, 4) = Split(dic(brr(j, 2)), "-")(2)
Next
Sheet3.Range("A10").Resize(UBound(brr), 4) = brr
End Sub

huizhuzi

182197315 发表于 2018-7-15 13:41
胡乱猜了一个
Sub 排序()
Dim i%, k%, x%, y%, arr, brr, temp

好像不行，定义有问题

182197315

Sub 排序()
Dim i%, k%, x%, y%, arr, brr, temp,d,dic
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictionary")
Sheet1.Activate
arr = Range("A3:D" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
    d(arr(i, 2)) = i
Next
Sheet2.Activate
brr = Range("A2:D" & Cells(Rows.Count, 2).End(xlUp).Row)
For k = 1 To UBound(brr)
    dic(brr(k, 2)) = brr(k, 1) & "-" & brr(k, 3) & "-" & brr(k, 4)
Next
For x = 1 To UBound(brr) - 1
    For y = x + 1 To UBound(brr)
        If d(brr(x, 2)) > d(brr(y, 2)) Then
            temp = brr(x, 2)
            brr(x, 2) = brr(y, 2)
            brr(y, 2) = temp
        End If
    Next
Next
For j = 1 To UBound(brr)
    brr(j, 1) = Split(dic(brr(j, 2)), "-")(0)
    brr(j, 3) = Split(dic(brr(j, 2)), "-")(1)
    brr(j, 4) = Split(dic(brr(j, 2)), "-")(2)
Next
Sheet3.Range("A10").Resize(UBound(brr), 4) = brr
End Sub

huizhuzi

182197315 发表于 2018-7-16 19:30
Sub 排序()
Dim i%, k%, x%, y%, arr, brr, temp,d,dic
Set d = CreateObject("scripting.dictionary")

可能莪表述的不是很清楚，表2的内容，根据表1的姓名跟身份证号码的顺序，生成到表3

huizhuzi

表2的内容，根据表1的姓名跟身份证号码的顺序，生成到表3

182197315

huizhuzi 发表于 2018-7-17 18:46
表2的内容，根据表1的姓名跟身份证号码的顺序，生成到表3

难道运行的结果不是这样的吗？

huizhuzi

182197315 发表于 2018-7-17 21:01
难道运行的结果不是这样的吗？

一时可以一时只有抬头

huizhuzi

用不停循环会不会更麻烦？

huizhuzi

zjdh 发表于 2018-7-14 15:10
你的表达不懂！

侠圣，有办法吗？

huizhuzi

7.18.rar (16.61 KB, 下载次数: 9)

2018-7-18 23:12 上传

点击文件名下载附件

只能做到表3，如何可以做到表4的效果？