excel vba复制并替换内容

1.将区域A内容复制并替换内容区域B
2.区域A为a39:j1500
3.区域B为k39:t5500

Sub s()
    cl = Array(3, 33, 7, 5)
    arr = [a39:j1500]
    Dim brr(1 To 4), crr(1 To 4, 9)
    n = 39
    For i = 1 To UBound(arr)
    For j = 1 To 10
    If arr(i, j) <> "" Then
    For k = 1 To 4
        brr(k) = Mid(arr(i, j), k, 1)
    Next
    For k = 0 To 9
        crr(1, k) = k & brr(2) & brr(3) & brr(4)
        crr(2, k) = brr(1) & k & brr(3) & brr(4)
        crr(3, k) = brr(1) & brr(2) & k & brr(4)
        crr(4, k) = brr(1) & brr(2) & brr(3) & k
    Next
    Cells(n, 11).Resize(4, 10) = crr
    n = n + 4
    If n > 5500 Then Exit Sub
    End If
    Next
    Next
    k = 0
    For i = 39 To 5500
    For j = 11 To 20
        If Cells(i, j) = "" Then Exit Sub
        Cells(i, j).Characters(k + 1, 1).Font.ColorIndex = cl(k)
    Next
    k = (k + 1) Mod 4
    Next
End Sub

举例步骤如下： 1.将第一行内容复制到第4行 2.alt+f11，输入如下代码： 3.f5执行代码，结果如下：