求一个单元格内已换行再分行的方法

hesimin

想做一个统计，无奈数据太多，加上单位格内已换了行，想细化但不会搞，望高手们指导。

fgfdfgdg

两个循环语句，可以搞定。需要上附件

6688

Sub kb()
Dim ar(1 To 100000, 1 To 4)
arr = Range("a1:b" & Range("a65535").End(xlUp).Row)

For i = 1 To UBound(arr)
     na = arr(i, 1)
     nat = Split(arr(i, 4), Chr(10))
     For Each j In nat
        m = m + 1
        ar(m, 1) = na
        ar(m, 2) = arr(i, 2)
        ar(m, 3) = arr(i, 3)
        ar(m, 4) = j
     Next j
Next i
Range("G1").Resize(m, 2) = ar
End Sub

6688

Sub kb()
Dim ar(1 To 100000, 1 To 4)
arr = Range("a1:b" & Range("a65535").End(xlUp).Row)

For i = 1 To UBound(arr)
     na = arr(i, 1)
     nat = Split(arr(i, 4), Chr(10))
     For Each j In nat
        m = m + 1
        ar(m, 1) = na
        ar(m, 2) = arr(i, 2)
        ar(m, 3) = arr(i, 3)
        ar(m, 4) = j
     Next j
Next i
Range("G1").Resize(m, 4) = ar
End Sub

jiangxiaoyun

复制到word再复制会excel，定位空值，ctrl+enter应该可以搞掂

Grace熊小熊

6688 发表于 2018-1-24 14:44
Sub kb()
Dim ar(1 To 100000, 1 To 4)
arr = Range("a1:b" & Range("a65535").End(xlUp).Row)

亲测好用，太给力

rudy_0990

6688 发表于 2018-1-24 14:44
Sub kb()
Dim ar(1 To 100000, 1 To 4)
arr = Range("a1:b" & Range("a65535").End(xlUp).Row)

老表，arr范围是不是给标错了