有顿号分隔汉字拆分成多行

陈功

请大家帮忙，有顿号分隔汉字拆分成多行。谢谢！

abc123281

Sub test()
Dim arr, brr(1 To 10000, 1 To 10)
With Worksheets("sheet1")
  arr = .UsedRange
  For i = 2 To UBound(arr)
     a = Split(arr(i, 3), "、")
     For Each b In a
        n = n + 1
        brr(n, 3) = b
        brr(n, 1) = arr(i, 1)
        brr(n, 2) = arr(i, 2)
        For j = 4 To 10
          brr(n, j) = arr(i, j)
        Next
      Next
  Next
End With
With Worksheets("sheet2")
  .[a2].Resize(n, 10) = brr
End With
End Sub

huzijun

Sub chaifen()
    arr = Sheet1.Range("a1").CurrentRegion.Value
    Dim brr(1 To 9999, 1 To 10)
    For i = 1 To 10
        brr(1, i) = arr(1, i)
    Next
    k = 1
    For i = 2 To UBound(arr)
        s = Split(arr(i, 3), "、")
        For j = 0 To UBound(s)
            k = k + 1
            brr(k, 1) = arr(i, 1)
            brr(k, 2) = s(j)
            For n = 3 To 9
                brr(k, n) = arr(i, n + 1)
            Next
        Next
    Next
    Sheet2.[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    Sheet2.Select
End Sub

abc123281

有顿号分隔汉字拆分成多行abc123.rar (15.91 KB, 下载次数: 27)

2018-8-26 23:18 上传

点击文件名下载附件

everbest2015

power query 按分隔符拆分到行直接搞定

陈功

感谢大家热心帮助！

snntss

学习了  非常好