[已解决]有序排列

yy159529941

请各路大神路过指点迷津，小弟在此谢过~~~~

最佳答案

月排行榜 / 总排行榜

baksy

2016-1-2 07:35

附件

跳转到最佳答案楼层

雪舞子

1. Sub 匹配()
   
2.     Dim rng As Range, i%, j%
   
3.     With Sheet1
   
4.         For i = 1 To .[a65536].End(3).Row
   
5.             For j = 1 To [iv1].End(1).Column
   
6.                 Set rng = .Rows(1).Find(Cells(1, j))
   
7.                 If Not rng Is Nothing Then
   
8.                     Cells(i, j) = .Cells(i, rng.Column)
   
9.                 End If
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

有序排列.rar (18.28 KB, 下载次数: 3)

2016-1-1 23:53 上传

点击文件名下载附件

baksy

附件