多组同行的的单元格在同一列中排列，大神救我

cc557

请各位看官群力群策，有没有什么快捷的办法，数据太多，快疯了

sunya_0529

用VBA来完成，代码不复杂——

1. Option Explicit
   
2. 
   
3. Sub 转换数据()
   
4. Dim rng As Range, arr(9999, 3), i%
   
5. Dim exp As Object, mc, m
   
6. Set exp = CreateObject("VBScript.RegEXP")
   
7. With exp
   
8.   .Global = True
   
9.   .ignorecase = True
   
10.   .Pattern = "[\u4e00-\u9fa5]+"
    
11. End With
    
12. arr(0, 0) = "驾驶员"
    
13. arr(0, 1) = "出发日期"
    
14. arr(0, 2) = "返程日期"
    
15. arr(0, 3) = "送货员"
    
16. For Each rng In Range("A2:A" & [A65536].End(xlUp).Row)
    
17.   i = i + 1
    
18.   arr(i, 0) = rng.Value
    
19.   arr(i, 1) = rng.Offset(0, 1).Value
    
20.   arr(i, 2) = rng.Offset(0, 2).Value
    
21.   If Len(rng.Offset(0, 3)) > 0 Then
    
22.     Set mc = exp.Execute(rng.Offset(0, 3).Value)
    
23.     For Each m In mc
    
24.       i = i + 1
    
25.       arr(i, 0) = m.Value
    
26.     Next
    
27.   End If
    
28. Next
    
29. Set exp = Nothing
    
30. Set mc = Nothing
    
31. [H:K].ClearContents
    
32. [H1].Resize(UBound(arr), 4) = arr
    
33. End Sub

复制代码