将Excel的列的数据进行格式转换

Sub transfer(arry() As String)

    Dim arrange As Variant, i As Integer, j As Integer
    
    For j = LBound(arry) To UBound(arry)
        arrange = Range(arry(j) & "65536").End(3).Row
        Range(arry(j) & "2:" & arry(j) & arrange).Select
        Selection.NumberFormatLocal = "@"
        i = 1
        For Each sc In Selection
            
            i = i + 1
           Range(arry(j) & i).Value = Format(Range(arry(j) & i).Value, "0000000000")
        Next
    
    Next j
    
End Sub
Sub 宏3()
'
' 宏3 宏
'
    Dim arryName() As String
     ReDim Preserve arryName(1)
     
    arryName(0) = "A"
    arryName(1) = "B"
    transfer arryName
End Sub