[已解决]特殊排序

ls

如何修改下代码 ，实现B列到最后一列的数据 和A列对齐

下面附件已实现BC列数据与A列对齐

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-9 23:00

1. Sub Macro1() 'ZHANGGANG1960
   
2.     Dim arr, brr(), d As Object, i&, j&
   
3.     Set d = CreateObject("scripting.dictionary") '定义字典对象
   
4.     arr = [a1].CurrentRegion '数据区域写入数组
   
5.     ReDim brr(1 To UBound(arr), 1 To 256) '重新定义数组brr，使它行数同arr，256列
   
6.     For i = 1 To UBound(arr) '逐行
   
7.         d(arr(i, 1)) = i 'A列单元格添加到字典键值，行号添加到字典条目，即不重复的A列单元格和其行号关联
   
8.     Next
   
9.     For i = 1 To UBound(arr) '逐行
   
10.         If d.Exists(arr(i, 2)) Then '如果B列单元格字典存在
    
11.             For j = 2 To 256
    
12.             brr(d(arr(i, 2)), j - 1) = arr(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     [b1].Resize(UBound(arr), 255) = brr '数组brr覆盖原需要排序区域
    
17. End Sub
    

复制代码

修改出来的代码是可以用的
不过我自己要再理解理解看。
PS：先睡觉去了。

跳转到最佳答案楼层

ls

高手来看看

放浪形骸

1. Sub Macro1() 'ZHANGGANG1960
   
2.     Dim arr, brr(), d As Object, i&, j&
   
3.     Set d = CreateObject("scripting.dictionary") '定义字典对象
   
4.     arr = [a1].CurrentRegion '数据区域写入数组
   
5.     ReDim brr(1 To UBound(arr), 1 To 256) '重新定义数组brr，使它行数同arr，256列
   
6.     For i = 1 To UBound(arr) '逐行
   
7.         d(arr(i, 1)) = i 'A列单元格添加到字典键值，行号添加到字典条目，即不重复的A列单元格和其行号关联
   
8.     Next
   
9.     For i = 1 To UBound(arr) '逐行
   
10.         If d.Exists(arr(i, 2)) Then '如果B列单元格字典存在
    
11.             For j = 2 To 256
    
12.             brr(d(arr(i, 2)), j - 1) = arr(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     [b1].Resize(UBound(arr), 255) = brr '数组brr覆盖原需要排序区域
    
17. End Sub
    

复制代码

修改出来的代码是可以用的
不过我自己要再理解理解看。
PS：先睡觉去了。

ls

放浪形骸 发表于 2011-4-9 23:00
修改出来的代码是可以用的
不过我自己要再理解理解看。
PS：先睡觉去了。

十分感谢。。。