怎么如何把每列包含文本数字降序排列

gsd521

工作簿1.zip (6.98 KB, 下载次数: 15)

2019-9-27 20:58 上传

点击文件名下载附件

liulang0808

楼主可以逐列处理，提取数值部分排序，然后原来的位置跟着一起动

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [a1].CurrentRegion
   
4.     brr = [a1].CurrentRegion
   
5.     For j = 1 To 3
   
6.         For i = 1 To UBound(brr)
   
7.             If Len(brr(i, j)) = 0 Then Exit For
   
8.             brr(i, j) = Val(Split(brr(i, j), "(")(1))
   
9.         Next i
   
10.         For x = 1 To i - 1
    
11.             For y = x + 1 To i - 1
    
12.                 If brr(x, j) < brr(y, j) Then
    
13.                     tm = brr(x, j)
    
14.                     brr(x, j) = brr(y, j)
    
15.                     brr(y, j) = tm
    
16.                     
    
17.                     tm = arr(x, j)
    
18.                     arr(x, j) = arr(y, j)
    
19.                     arr(y, j) = tm
    
20.                 End If
    
21.             Next y
    
22.         Next x
    
23.     Next j
    
24.     [i1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
25.     Application.ScreenUpdating = True
    
26. End Sub
    

复制代码

gsd521

   提取数字排列太慢 ，数据有几千上万列

cui26896

那应该从你的原始数据表去着手了，这不是写代码的人能解决的。本来货物名与数量放在一起就非常不合理。

gsd521

liulang0808 发表于 2019-9-27 21:16

您好 测试了下 这个好像对列数有限制，如果有几千列 怎么修改，请大神赐教。我把结果放下面，不放I列

liulang0808

gsd521 发表于 2019-9-27 22:44
您好 测试了下 这个好像对列数有限制，如果有几千列 怎么修改，请大神赐教。我把结果放下面，不放I列

For j = 1 To 3
修改成For j = 1 To ubound(arr,2)

lzhlzh123

Sub 排序()
    Dim re As New RegExp
    Dim E, G As String
    Dim i As Integer
   
    Range("a:c").Copy Range("e1")
   
    E = Asc("E")
    G = Asc("G")
   
    For st = E To G
   
        Range(Chr(st) & ":" & Chr(st)).Insert shift:=xlToRight
        
        For i = 1 To Range(Chr(st + 1) & 6000).End(xlUp).Row
        
            With re
                .Global = True
                .Pattern = "\D"
               
                Range(Chr(st) & i) = .Replace(Range(Chr(st + 1) & i), "")
        
            End With
        Next i
        
        Range(Chr(st) & ":" & Chr(st + 1)).Sort key1:=Range(Chr(st) & "1"), order1:=xlDescending
        Range(Chr(st) & ":" & Chr(st)).Delete shift:=xlToLeft
   
    Next st
   
End Sub

cui26896

mikezhan 发表于 2019-9-28 11:39
用正则，可以轻松完成。

这是遗漏了，用正则可以解决，但一点不懂，只知道VBA中有这项内容。因为自己涉及的方面用不到。