求助一条EXCEL代码

ryoryo66

有三列数据C，H，K，里面的数字是由0-9的个位数组成的。我想把里面的数字替换一下，替换的规则是：                                                                                       
0替换成10 20 30       
1替换成01 11 21 31                               
2替换成02 12 22 32                               
3替换成03 13 23 33                               
4替换成04 14 24                       
5替换成05 15 25                       
6替换成06 16 26                       
7替换成07 17 27                       
8替换成08 18 28                       
9替换成09 19 29                                                                       
顺序从小到大，中间用 空格 隔开，想要的结果就在箭头右方

问这个代码应该怎么写啊？               
                                               

蓝桥玄霜

替换的例子：

LIUZHU

01368的结果怎么可能是03 06 08 13 16 18 23 26 28 33，从数量上看也不对啊

LIUZHU

执行效果，有一个和给出的样例 结果不一样

LIUZHU

提前做了一个映射关系表，代码就简单些了

LIUZHU

JS代码，供参考

1. function 转换(){
   
2.         let obj=Sheets.Item("映射关系").Range("a1").CurrentRegion.Value2.reduce((obj,[a,b])=>(obj[a]=b.trim().split(" "),obj),{});
   
3.         let res=Range("c2:c6").Value2.reduce((res,[x])=>{
   
4.                 return res.push([[...x].reduce((rs,y)=>(rs.push(...obj[y]), rs),[]).sort((a,b)=>a.localeCompare(b)).join(" ")]), res;
   
5.         },[]);
   
6.         Range("p2").Resize(res.length,res[0].length).Value2=res;
   
7. }

复制代码

LIUZHU

附件，WPS打开测试

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, cr, dr, i&, j&, k&, strJoin$
   
    Application.ScreenUpdating = False
   
    br = Array("10 20 30", "01 11 21 31", "02 12 22 32", "03 13 23 33", _
        "04 14 24", "05 15 25", "06 16 26", "07 17 27", "08 18 28", "09 19 29")
        
    ar = Range("C1", Intersect(ActiveSheet.UsedRange, Columns("C:K"))).Value
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If Len(ar(i, j)) Then
                strJoin = ""
                For k = 1 To Len(ar(i, j))
                    strJoin = strJoin & " " & br(Mid(ar(i, j), k, 1))
                Next k
                cr = Split(strJoin)
                ReDim dr(1 To UBound(cr), 1 To 2)
                For k = 1 To UBound(cr)
                    dr(k, 1) = cr(k): dr(k, 2) = Val(cr(k))
                Next k
                bSort dr, 1, UBound(dr), 1, 2, 2
                ar(i, j) = Join(Application.Transpose(Application.Index(dr, , 1)))
            End If
        Next j
    Next i
   
    Columns("P:XFD").Clear
    With [P1].Resize(UBound(ar), UBound(ar, 2))
        .Value = ar
        .EntireColumn.AutoFit
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

Function bSort(ar, iFirst&, iLast&, iLeft&, iRight&, _
    iKey&, Optional isOrder As Boolean = True)
    Dim i&, j&, k&, vTemp
   
    For i = iFirst To iLast - 1
        For j = iFirst To iLast + iFirst - 1 - i
            If ar(j, iKey) <> ar(j + 1, iKey) Then
                If ar(j, iKey) < ar(j + 1, iKey) Xor isOrder Then
                    For k = iLeft To iRight
                        vTemp = ar(j, k)
                        ar(j, k) = ar(j + 1, k)
                        ar(j + 1, k) = vTemp
                    Next
                End If
            End If
        Next j
    Next i
End Function

gwjkkkkk

楼主是否模拟结果有误

ryoryo66

蓝桥玄霜 发表于 2024-6-18 14:55
替换的例子：

感谢老师，就是我的意思，就是在原位置上面替换出来。。后面箭头的 是显示的结果，并不是要显示的位置。就是想在原位置上 替换出来结果。 这个能不能改一下啊