某一单元格内的内容分成多行，其他内空不变

Awill-

麻烦帮忙看下代码，我希望把某一单元格内的内容分成多行，其余内容共同，目前K列执行的是对的，L列和M列希望也跟K列一样
Private Sub CommandButton1_Click()
    h = 13
    For i = 2 To 4
        c = Split(Range("k" & i), " ")
        For r = 0 To UBound(c)
            Rows(i).Copy Rows(h)
            Range("k" & h) = c(r)
            h = h + 1
        Next r
    Next i
End Sub


L列和M列的不会写了，如果执行的结果能放到SHEET2中是最好，不要显示在一个表格中

jiangxiaoyun

Private Sub CommandButton1_Click()
    Sheet2.Cells.Clear
    Range("a1:m1").Copy Sheet2.[a1]
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr) * 50, 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        c = Split(arr(i, 11), " ")
        For r = 0 To UBound(c)
            k = k + 1
            For j = 1 To UBound(arr, 2) - 2
                brr(k, j) = arr(i, j)
            Next
            brr(k, 11) = c(r)
            brr(k, 12) = arr(i, 12): brr(k, 13) = arr(i, 13)
        Next
    Next
    Sheet2.[a2].Resize(k, 13) = brr
End Sub

chentonny

你试试看是不是符合你的要求

Awill-

jiangxiaoyun 发表于 2018-8-21 19:58
Private Sub CommandButton1_Click()
    Sheet2.Cells.Clear
    Range("a1:m1").Copy Sheet2.[a1]

执行代码后L列和M列没有分行

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("导入数据")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:m" & r)
   
7.     ReDim brr(1 To UBound(arr) * 10, 1 To UBound(arr, 2))
   
8.     m = 0
   
9.     For i = 1 To UBound(arr)
   
10.       crr = Split(arr(i, 11), " ")
    
11.       drr = Split(arr(i, 12), " ")
    
12.       frr = Split(arr(i, 13), " ")
    
13.       For j = 0 To UBound(crr)
    
14.         m = m + 1
    
15.         For k = 1 To 10
    
16.           brr(m, k) = arr(i, k)
    
17.         Next
    
18.         brr(m, 11) = crr(j)
    
19.         brr(m, 12) = drr(j)
    
20.         brr(m, 13) = frr(j)
    
21.       Next
    
22.     Next
    
23.   End With
    
24.   With Worksheets("执行结果")
    
25.     .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
26.   End With
    
27. End Sub
    

复制代码

jiangxiaoyun

Awill- 发表于 2018-8-22 08:48
执行代码后L列和M列没有分行

同样用那个split处理

chxw68

楼主的模拟结果有问题，不能冤枉楼上的。

Awill-

chxw68 发表于 2018-8-22 08:57
楼主的模拟结果有问题，不能冤枉楼上的。

可以了，可能我表达的不够清楚，这次可以了，感谢各位

Awill-

jiangxiaoyun 发表于 2018-8-22 08:56
同样用那个split处理

嗯，非常感谢，已经可以了！

Awill-

chxw68 发表于 2018-8-22 08:55

还有2个地方想请教一下
1.如果我想执行更多的行数，例如执行100行的数据进行分行，如何修改代码
2.M列中的日期包含了多个空格，不能用空格进行split，应该要指定长度类型的SPLIT的，需要如何写