[已解决]多行多列字符串拆分

cunfu2010

条件：A1:D5为源数据，A10:H14为目标数据

目标：用VBA代码实现字符串拆分（多行单列的字符串已可以实现，现求助多行多列字符串如何拆分）？感谢！

因数据的涉密性，故做了示意数据，请见谅。

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2016-9-17 22:13

根据你这附件做的，和你那个模拟的一样 了，实际的你自己参考代码做修改吧

1. Option Explicit
   
2. Sub test()
   
3.     Dim arrSrc, arrRst(), arrSplt
   
4.     Dim irow%, icol%, iCnt%, Cnt%
   
5.     arrSrc = Range("a1").CurrentRegion.Value
   
6.     ReDim arrRst(1 To UBound(arrSrc), 1 To UBound(arrSrc, 2) * 2)
   
7.     For irow = 2 To UBound(arrSrc)
   
8.         For icol = 1 To UBound(arrSrc, 2)
   
9.             If Len(arrSrc(irow, icol)) > 0 Then
   
10.                 arrSplt = Split(arrSrc(irow, icol), Chr(10))
    
11.             Else
    
12.                 arrSplt = Split(arrSrc(irow, icol - 1), Chr(10))
    
13.             End If
    
14.             For iCnt = 0 To UBound(arrSplt)
    
15.                 Cnt = Cnt + 1
    
16.                 arrRst(irow, Cnt) = arrSplt(iCnt)
    
17.             Next
    
18.             Erase arrSplt
    
19.         Next
    
20.         Cnt = 0
    
21.     Next
    
22.     arrRst(1, 1) = arrSrc(1, 1)
    
23.     Range("a10").Resize(1, UBound(arrRst, 2)).Merge
    
24.     With Range("a10").Resize(UBound(arrRst), UBound(arrRst, 2))
    
25.         .Value = arrRst
    
26.         .HorizontalAlignment = xlCenter
    
27.         .HorizontalAlignment = xlCenter
    
28.         .Borders.LineStyle = True
    
29.         .Font.Size = 10
    
30.     End With
    
31. End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123

根据你这附件做的，和你那个模拟的一样 了，实际的你自己参考代码做修改吧

1. Option Explicit
   
2. Sub test()
   
3.     Dim arrSrc, arrRst(), arrSplt
   
4.     Dim irow%, icol%, iCnt%, Cnt%
   
5.     arrSrc = Range("a1").CurrentRegion.Value
   
6.     ReDim arrRst(1 To UBound(arrSrc), 1 To UBound(arrSrc, 2) * 2)
   
7.     For irow = 2 To UBound(arrSrc)
   
8.         For icol = 1 To UBound(arrSrc, 2)
   
9.             If Len(arrSrc(irow, icol)) > 0 Then
   
10.                 arrSplt = Split(arrSrc(irow, icol), Chr(10))
    
11.             Else
    
12.                 arrSplt = Split(arrSrc(irow, icol - 1), Chr(10))
    
13.             End If
    
14.             For iCnt = 0 To UBound(arrSplt)
    
15.                 Cnt = Cnt + 1
    
16.                 arrRst(irow, Cnt) = arrSplt(iCnt)
    
17.             Next
    
18.             Erase arrSplt
    
19.         Next
    
20.         Cnt = 0
    
21.     Next
    
22.     arrRst(1, 1) = arrSrc(1, 1)
    
23.     Range("a10").Resize(1, UBound(arrRst, 2)).Merge
    
24.     With Range("a10").Resize(UBound(arrRst), UBound(arrRst, 2))
    
25.         .Value = arrRst
    
26.         .HorizontalAlignment = xlCenter
    
27.         .HorizontalAlignment = xlCenter
    
28.         .Borders.LineStyle = True
    
29.         .Font.Size = 10
    
30.     End With
    
31. End Sub

复制代码

today0427

我不会做，单纯是好奇为什么第一行是四个单元格的合并单元格，为什么不显示1111呢？这规律弄得我抓狂！

cunfu2010

Excel学徒123 发表于 2016-9-17 22:13
根据你这附件做的，和你那个模拟的一样 了，实际的你自己参考代码做修改吧

感谢，我先自己修改一下，有问题再麻烦你。

cunfu2010

Excel学徒123 发表于 2016-9-17 22:13
根据你这附件做的，和你那个模拟的一样 了，实际的你自己参考代码做修改吧

版主你好，还有一个小问题麻烦问一下：
If Len(arrSrc(irow, icol)) > 0 Then
                arrSplt = Split(arrSrc(irow, icol), Chr(10))
            Else
                arrSplt = Split(arrSrc(irow, icol - 1), Chr(10))
            End If
            For iCnt = 0 To UBound(arrSplt)
                Cnt = Cnt + 1
                arrRst(irow, Cnt) = arrSplt(iCnt)
            Next

上面这段代码总体意思我明白，但总是感觉还不是很透彻，能否解释一下，特别是标识的部分。谢谢！

Excel学徒123

cunfu2010 发表于 2016-9-19 08:18
版主你好，还有一个小问题麻烦问一下：
If Len(arrSrc(irow, icol)) > 0 Then
                arrSplt ...

就是一个判断，如果是空的单元格，就用左边那个来填充
后面那个+1的就是一个计数器，为了放数据进数组用的

cunfu2010

Excel学徒123 发表于 2016-9-19 17:27
就是一个判断，如果是空的单元格，就用左边那个来填充
后面那个+1的就是一个计数器，为了放数据进数组用 ...

谢谢，非常感谢。