用VBA对数据进行拆分

his803

杨建营 发表于 2024-5-20 09:36
请楼主参考。

谢谢老师无私帮助！真好

grf1973

用JSA做了一下，练习练习。

jjmysjg

按1个位置拆分？

ykcbf1100

正则参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.20
   
2.     st = [a1].Value
   
3.     Set reg = CreateObject("VBScript.Regexp")
   
4.     Dim brr(1 To 100, 1 To 10)
   
5.     With reg
   
6.         .Global = True
   
7.         .Pattern = "(\d+)\.([A-Za-z])"
   
8.     End With
   
9.     m = 1
   
10.     If reg.test(st) Then
    
11.         For Each mh In reg.Execute(st)
    
12.             c = c + 1
    
13.             If c > 5 Then c = 1: m = m + 1
    
14.             brr(m, 2 * c - 1) = mh.submatches(0)
    
15.             brr(m, 2 * c) = mh.submatches(1)
    
16.         Next
    
17.     End If
    
18.     [a10].Resize(m, 10) = brr
    
19.     MsgBox "OK！"
    
20. End Sub
    
21. 
    

复制代码

his803

grf1973 发表于 2024-5-20 09:50
用JSA做了一下，练习练习。

支持一下！

his803

ykcbf1100 发表于 2024-5-20 10:15
正则参与一下。。。

谢谢老师无私帮助！

his803

usedrange 发表于 2024-5-20 09:17
Sub t()
    Dim arr, brr, i%, un
    arr = [a1]

谢谢老师无私帮助！

Qs18

Sub 拆分()
    Dim arr, i, brr, s, m, j, x
    arr = Split(Sheet1.[a1].Value, ".")
For i = LBound(arr) To UBound(arr)
    strInput = arr(i)
    Set objRegex = CreateObject("VBScript.RegExp")
    objRegex.Pattern = "\d+"
    strNumbers = objRegex.Replace(strInput, "")
    strNumbers = Trim(strNumbers)
    objRegex.Global = True
    objRegex.Pattern = "[A-Za-z]+"
    strLetters = objRegex.Replace(strInput, "")
    strLetters = Trim(strLetters)
    s = s & "|" & strNumbers & "|" & strLetters
Next
s = Replace(s, "||", "|")
brr = Split(Mid(s, 2), "|")
k = 6
For m = 1 To 2
    For j = 1 To 10
        Sheet1.Cells(k + m, j) = brr(x)
        x = x + 1
    Next j
Next
    Set objRegex = Nothing
End Sub

一招秒杀

PostgreSQL 仅需2行代码，直接把其他秒成了渣渣辉  
更新为楼主的数据