VBA怎么按位置排列替换

WE2021

   各位老师劳烦看看！ VBA怎么按位置排列替换，A列下是数字排列模型。
例如：B1单元格的数字个数是6个的按1-6的模型替换排列在C2以下，B1单元格的数字个数是7个的按1-7的模型替换排列在C9以下，以此类推向下替换排列！
注意：B1单元格的数字有时多至10几个，A列下的模型也随着改变增多！10以下的数字要求补零（01 02 03 04 05 06 0708 09）

谢谢！
VBA怎么按位置排列替换.zip (11.27 KB, 下载次数: 12)

2023-2-3 23:41 上传

点击文件名下载附件

shiruiqiang

---------------------b1有空格？

清风竹-

请看附件。

准提部林

Sub TEST_A1()
Dim Arr, xD, A, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
For Each A In Split(Trim([b1]), " ")
    i = i + 1: xD(i) = Format(A, "00")
Next A
Arr = Range([a2], [a65536].End(3)(3))
For i = 1 To UBound(Arr) - 1
    For Each A In Split(Trim(Arr(i, 1)), " ")
        T = Trim(T & " " & xD(Val(A)))
    Next A
    Arr(i, 1) = T: T = ""
Next i
[c2:c3000].ClearContents
[c2].Resize(UBound(Arr)) = Arr
End Sub

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, cr, i&, j&
   
    ar = Range("A2", Cells(Rows.Count, "A").End(xlUp))
    br = Split([B1])
    For i = 1 To UBound(ar)
       If ar(i, 1) <> "" Then
          cr = Split(ar(i, 1))
          For j = 0 To UBound(cr)
            cr(j) = Format(br(Val(cr(j))), "00")
          Next j
          ar(i, 1) = Join(cr)
       End If
    Next i
   
    [C2].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

请参考附件。。。