单元格拆分

ddz79101

老师！有单元格，中间有汉字，行次（数字），金额。现想拆分，请老师帮忙看看。谢谢

ykcbf1100

你这个没啥规律，不太好拆分

lcluck2002

增值税纳税申报表，要么重新复制一下”源“，要么先手工调整一下。我把其中三行手工调整了一下，然后”分列“差不多实现了：

ddz79101

ykcbf1100 发表于 2024-6-12 16:15
你这个没啥规律，不太好拆分

谢谢老师！若只将金额拆开喃，我现在是手工分列。

ykcbf1100

ddz79101 发表于 2024-6-12 16:37
谢谢老师！若只将金额拆开喃，我现在是手工分列。

那可以按3楼办法操作，用split函数拆分。

ddz79101

lcluck2002 发表于 2024-6-12 16:21
增值税纳税申报表，要么重新复制一下”源“，要么先手工调整一下。我把其中三行手工调整了一下，然后”分列 ...

谢谢老师！我目前也用的此法，但因想美观，就将栏次列数字一个个删，感觉花时间。你有什么快的办法

ddz79101

ykcbf1100 发表于 2024-6-12 16:38
那可以按3楼办法操作，用split函数拆分。

就是汉字后的栏列数字，没有办法分离或去掉

longwin

Sub test()
    arr = Sheets("表").Range("a1:a19")
    ReDim brr(1 To UBound(arr), 1 To 10)
    For i = 1 To UBound(arr)
        s = Split(arr(i, 1), " ")
        m = m + 1
        For j = 0 To UBound(s)
            If j = 0 Then
                brr(m, 1) = s(j)
                ss = brr(m, 1)
                For k = 1 To Len(ss)
                    If IsNumeric((Mid(brr(m, 1), k, 1))) Then
                        brr(m, 1) = Left(ss, k - 1)
                        brr(m, 2) = Right(ss, Len(ss) - k)
                        Exit For
                    End If
                Next
            Else
                brr(m, 2 + j) = s(j)
            End If
        Next
        Debug.Print i, j, UBound(s)
    Next
    [B1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub
第16行有点例外，行次跟前面有个空格去掉就可以了

longwin

longwin

先按照空格拆分，再把前面的找到数字位置后拆分