VBA 对单元格排序设计

ME.李

xiangbaoan 发表于 2021-8-18 08:38

Sub num()
Dim num As String
For I = 2 To Sheets("数据源").Cells(Rows.Count, "A").End(xlUp).Row
str1 = Sheets("数据源").Cells(I, 1)
str2 = ""
num = ""
    For j = 1 To Len(str1)
        If Mid(str1, j, 1) Like "[0-9]" Then
            num = num & Mid(str1, j, 1)
        Else
            str2 = str2 & Mid(str1, j, 1)
        End If
    Next j
Sheets("结果").Cells(I, 1) = num & str2
  Next I
    End Sub
我是这样写的  感觉不规范  请指正

zpy2

hzqhxy 发表于 2021-8-17 23:01

select rowid,regreplace('~(\D+)(\d+)(\D+)~','\2\1\3',名称) 名称 from 正则表达式排序明细表         order by 名称,regreplace('~(\D+)(\d+)(\D+)~','\2',名称)

正则不错。

zpy2

ME.李 发表于 2021-8-17 23:29
研究了半天 赋值可能弄错了 大神能不能帮忙看看附件 好人做到底

function numfirst(str1)
For j = 1 To Len(str1)                                 
   If Mid(str1, j, 1) Like "[0-9]" Then
            num = num & Mid(str1, j, 1)
        Else                                                
str2 = str2 & Mid(str1, j, 1)
        End If
    Next j
    str1 = num & str2
    numfirst=str1
end function                  
                 
  sun run()
mr = Cells(Rows.Count, 1).End(3).Row
   For i = 1 To mr
      ms = Trim(Cells(i, 1).Value)
      Cells(i, 2) =numfirst(ms)
   Next
end sub

                                            

liulang0808

Sub 转换()
arr = Sheets("数据源").[a1].CurrentRegion
For i = 2 To UBound(arr)
    str1 = arr(i, 1)
    str2 = ""
    num = ""
    For j = 1 To Len(str1)
        If Mid(str1, j, 1) Like "[0-9]" Then
            num = num & Mid(str1, j, 1)
        Else
            str2 = str2 & Mid(str1, j, 1)
        End If
    Next j
    arr(i, 1) = num & str2
  Next
  Sheets(2).[a1].Resize(UBound(arr)) = arr
End Sub

ME.李

liulang0808 发表于 2021-8-18 14:27
Sub 转换()
arr = Sheets("数据源").[a1].CurrentRegion
For i = 2 To UBound(arr)

缺少函数变量

liulang0808

ME.李 发表于 2021-8-20 07:48
缺少函数变量

取消变量强制定义