集中放置

xing_chen

老师，有表，我希望能将其中的数据，按用户的尾字和用户的字数集中放置，敬请老师赐教。谢谢！

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:d" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         For i = 1 To UBound(arr)
   
9.             If Right(arr(i, 2), 1) = "国" Then
   
10.                 brr(i, 1) = 1
    
11.             ElseIf Right(arr(i, 2), 1) = "省" Then
    
12.                 brr(i, 1) = 2
    
13.             Else
    
14.                 brr(i, 1) = 3
    
15.             End If
    
16.         Next
    
17.         .Range("e2").Resize(UBound(brr), 1) = brr
    
18.         .Range("a2:e" & r).Sort key1:=.Range("e2"), order1:=xlAscending, Header:=xlNo
    
19.         .Columns(5).Clear
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

使用辅助列排序。

xing_chen

chxw68 发表于 2023-4-3 09:20
使用辅助列排序。

这么快！谢谢老师！我看看

ykcbf1100

参与一下吧。

xing_chen

chxw68 发表于 2023-4-3 09:20
使用辅助列排序。

谢谢老师！运行如愿！

xing_chen

ykcbf1100 发表于 2023-4-3 09:53
参与一下吧。

谢谢老师！运行如愿！

sxbjzjf110

参与一下。。。。

xing_chen

sxbjzjf110 发表于 2023-4-3 12:28
参与一下。。。。

谢谢老师！运行如愿