如何用VBA将表中A列的字符位置调换为B列的模样

china047

请各位老师帮忙用VBA将表中A列的面料描述成份位置调换成B列的样子(中文名称表作为分割字符参考,不知是否有帮助),先谢过各位老师!

字符串位置调换.rar (4.53 KB, 下载次数: 22)

2022-8-16 13:35 上传

点击文件名下载附件

紫色海水

没有VBA，写个JSA充数

zanghow6

最多只会有两个成分吗？
Sub exchange_str()

irow = Range("a65536").End(3).Row

For i = 2 To irow

    main_str = Split(Cells(i, 1), ":")(0)
   
    obj_str = Split(Cells(i, 1), ":")(1)
   
    If InStr(obj_str, " ") Then
   
        first_obj_str = Split(obj_str, " ")(0)
        
        last_obj_str = Split(obj_str, " ")(1)
        
        first_obj1_str = Split(first_obj_str, "%")(0)
        
        last_obj1_str = Split(first_obj_str, "%")(1)
        
        first_obj2_str = Split(last_obj_str, "%")(0)
        
        last_obj2_str = Split(last_obj_str, "%")(1)
        
        Cells(i, 1) = main_str & ":" & last_obj1_str & first_obj1_str & "% " & last_obj2_str & first_obj2_str & "%"
        
    Else
   
        first_str = Split(obj_str, "%")(0)
        
        last_str = Split(obj_str, "%")(1)
        
        Cells(i, 1) = main_str & ":" & last_str & first_str & "%"
   
    End If

Next

MsgBox "转换完成"

End Sub

loreijine924

Sub TEST()
Dim Exp, S, I2

Set Exp = CreateObject("VBSCRIPT.REGEXP")

Exp.Global = True

Exp.Pattern = "(\d+%)\s*(\S+)"

For I2 = 2 To Sheet2.Range("A11111").End(xlUp).Row

S = Sheet2.Cells(I2, 1).Value

Sheet2.Cells(I2, 3).Value = Exp.Replace(S, "$2$1")

Next I2


End Sub

limonet

代码会审核。

limonet

Sub a()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "([一-龥]+:)(\d+%)([一-龥]+) ?(\d+%)?([一-龥]+)?"
        For i = 2 To 9
            Cells(i, 3) = .Replace(Cells(i, 2), "$1$3$2$5$4")
        Next i
    End With
End Sub

鄂龙蒙

limonet 发表于 2022-8-16 15:03
代码会审核。

Cells(i, 3) = .Replace(Cells(i, 1), "$1$3$2$5$4")

鄂龙蒙

limonet 发表于 2022-8-16 15:03
代码会审核。

面料:羊100%毛

limonet

鄂龙蒙 发表于 2022-8-16 15:34
面料:羊100%毛

没看懂，C列与B列是确认过了。

℡Soul