非空单元格内容分拆

天地一相

杨建营 发表于 2023-5-26 12:58
这个代码已经有去空格的句子了

我知道这句是这个意思，但具体如何搭配使用不知道，瞎捣鼓在一起，写回去没内容

天地一相

杨建营 发表于 2023-5-26 10:54
请楼主参考。

可否修改下你的代码，能处理含空格的内容，给个附件，抄代码对我是难题，谢谢

tangdeng520

【试试呢】
Sub 分拆() '去除了字符串中间的空格
Dim arr, str, i, j, k
rmax = Cells(Rows.Count, "G").End(xlUp).Row
arr = Range("b3:g" & rmax)
For i = 1 To UBound(arr)
    str = Replace(arr(i, 6), " ", "")
    If Len(str) > 0 Then
        For j = 1 To 5
            arr(k + 1, j) = Mid(str, j, 1)
        Next
        k = k + 1
        arr(i, 6) = ""
    End If
Next
Range("b3:g" & rmax) = arr
End Sub

tangdeng520

天地一相 发表于 2023-5-26 13:05
可否修改下你的代码，能处理含空格的内容，给个附件，抄代码对我是难题，谢谢

我写了一个，还在审核中

天地一相

tangdeng520 发表于 2023-5-26 13:41
【试试呢】
Sub 分拆() '去除了字符串中间的空格
Dim arr, str, i, j, k

感谢！完美。