分解A列的数字和文字分别在E、F列输出

APPLE123

分解A列的数字和文字分别在E、F列输出

1、A列“项目”内容为4位数字+文字，文字字数不等；
2、将A列“项目”分解为数字和文字，在E列相应单元格输出数字，在E列相应单元格输出文字。具体效果详见E、F列红色内容
3、B、D列几乎为空，仅有字段名称。
4、本表行数很多，大约有2000行。本例仅是其中一点点内容。

请教大神，vba可否实现上述效果，谢谢！

无关岁月

Sub 按钮1_Click()
Dim arr, i
arr = Range("a3:f" & [c3].End(4).Row)
For i = 1 To UBound(arr)
    arr(i, 5) = Left(arr(i, 1), 4)
    arr(i, 6) = Replace(arr(i, 1), arr(i, 5), "")
Next
[a3].Resize(UBound(arr), 6) = arr
End Sub

shiruiqiang

最简单的正则式:(\d+)([一-龢]+)

songshihai

数字位数固定,那还不容易???都用不上vba

醉眼看尘世

函数最简单哇
数字
=LEFT(A3,LENB(A3)-LEN(A3))
科目
=RIGHT(A3,LENB(A3)-LEN(A3))

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, aMatch As Object
   
    ar = [A1].CurrentRegion.Value
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\d+)([\u4e00-\u9fa5]+)"
        For i = 3 To UBound(ar)
            If .test(ar(i, 1)) Then
                Set aMatch = .Execute(ar(i, 1))(0)
                ar(i, 5) = aMatch.submatches(0)
                ar(i, 6) = aMatch.submatches(1)
            End If
        Next i
    End With
   
    [A1].CurrentRegion.Value = ar
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。

ykcbf1100

如果数据那么规整，可以不用正则。但是，用正则应该是最合适的。

ykcbf1100

正则参与一下。

1. Sub ykcbf()   '//2024.8.20
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     With reg
   
4.         .Global = True
   
5.         .Pattern = "(\d+)(\D+)"
   
6.     End With
   
7.     r = Cells(Rows.Count, 3).End(3).Row
   
8.     On Error Resume Next
   
9.     For i = 3 To r
   
10.         s = Cells(i, 1).Value
    
11.         If reg.TEST(s) Then
    
12.             Set mh = reg.Execute(s)
    
13.             Cells(i, 5) = mh(0).submatches(0)
    
14.             Cells(i, 6) = mh(0).submatches(1)
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

醉眼看尘世

ykcbf1100 发表于 2024-8-20 20:53
正则参与一下。

考虑小数是不是更严谨些