如何分解字符到列？

ljs2007

把A列的字符一个一个排成F列的样子(背景颜色不需要改变)

需要把其他列都做如此处理

描述补充：A列拆分，放到A列，取代以前的数据；B列拆分，放到B列...
实际数据中，有更多列、更多行，请大神帮忙！

A1233515

其他列的拆分后，也放到F列，还是放到其他列？

X2030

=MID(PHONETIC(A:A),ROW(A1),1)

ggmmlol

3重循环语句搞定：
第一重，逐列处理；
第二重，对每一列逐行处理；
第三重，对每个单元格的字符串中的字符逐一处理。

学习VBA，要循序渐进。
先学会单重循环，也就是试着处理一个单元格中的多个字符。
接着学习循环语句的嵌套，即多加一层循环，尝试处理一列单元格中的数据。
再接着学习多层循环语句的嵌套，即再加一层循环，尝试处理多列的数据。

VBA的强大之处，很多时候就是体现在它能用循环方法来处理大量工作任务，减轻手工处理的工作量。

笨鸟飞不高

如何分解字符到列.zip (19.59 KB, 下载次数: 7)

2021-4-22 12:03 上传

点击文件名下载附件

猜一个！！

ljs2007

A1233515 发表于 2021-4-22 11:33
其他列的拆分后，也放到F列，还是放到其他列？

A列拆分，放到A列；B列拆分，放到B列...

ljs2007

ggmmlol 发表于 2021-4-22 11:46
3重循环语句搞定：
第一重，逐列处理；
第二重，对每一列逐行处理；

嗯，说的太对了

ljs2007

笨鸟飞不高 发表于 2021-4-22 12:03
猜一个！！

非常强大，就是这个效果。
是否可以A列拆分到A列，B列拆分到B列，取代原有数据？

ljs2007

X2030 发表于 2021-4-22 11:37
=MID(PHONETIC(A:A),ROW(A1),1)

数据太多，还是期待VBA解决啊

笨鸟飞不高

ljs2007 发表于 2021-4-22 12:33
非常强大，就是这个效果。
是否可以A列拆分到A列，B列拆分到B列，取代原有数据？

Sub AwTest()
    Dim i&, j%, k&, c&, r&, n&, zf$, arr, rng As Range, Iscolor As Boolean
    Sheet1.Activate
    arr = [a1].CurrentRegion
    ReDim brr(1 To 5000, 1 To UBound(arr, 2))
    Rem 准备从[A1]单元格输出
    For j = 1 To UBound(arr, 2)
        r = 0: Iscolor = False
        For i = 1 To UBound(arr)
            zf = Trim(arr(i, j)): k = Len(zf)
            If k > 0 Then
                Iscolor = Not Iscolor
                For c = 1 To k
                    r = r + 1
                    brr(r, j) = Mid(zf, c, 1)
                    If Iscolor = False Then
                        If rng Is Nothing Then
                            Set rng = Cells(r, j)
                        Else
                            Set rng = Union(rng, Cells(r, j))
                        End If
                    End If
                Next
            End If
        Next
        n = IIf(n > r, n, r)
    Next
    [a:z].Clear
    [a1].Resize(n, UBound(brr, 2)) = brr
    If Not rng Is Nothing Then rng.Interior.Color = 15986394
End Sub