分隔字符串，求帮忙

xh_lwr

    A列        B列
41010240          C103,C129
41010250   C104,C121,C130,C144,C164

转换成下面的格式
  C列      D列
41010240          C103
41010240          C129
41010250          C104
41010250   C121
41010250          C130
41010250   C144
41010250          C164
求大神帮忙，谢谢！

microyip

1. Sub 转换()
   
2.     Dim vData As Variant, nRow As Integer
   
3.     Dim vFill As Variant, nFill As Integer
   
4.     Dim vKey As Variant, nKey As Integer
   
5.     vData = [A1:B2]
   
6.     ReDim vFill(1 To 2, 1 To 1)
   
7.     For nRow = 1 To UBound(vData)
   
8.         vKey = Split(vData(nRow, 2), ",")
   
9.         For nKey = 0 To UBound(vKey)
   
10.             nFill = nFill + 1
    
11.             ReDim Preserve vFill(1 To 2, 1 To nFill)
    
12.             vFill(1, nFill) = vData(nRow, 1)
    
13.             vFill(2, nFill) = vKey(nKey)
    
14.         Next
    
15.     Next
    
16.     [C1:D1].Resize(nFill) = Application.WorksheetFunction.Transpose(vFill)
    
17. End Sub

复制代码

719404338

1. Sub t()
   
2. Dim i%, j%, k%, arr, brr
   
3. k = 1
   
4. For i = 1 To 2
   
5. arr = Split(Range("b" & i), ",")
   
6.   For j = 0 To UBound(arr)
   
7.    Range("c" & k) = Range("a" & i)
   
8.    Range("d" & k) = arr(j)
   
9.    k = k + 1
   
10.    Next j, i
    
11. End Sub
    

复制代码

ssfjhh

excel自带功能即可解决，不需要写VBA代码，菜单里依次点“数据->从表格->拆分列（选择分隔符号为你要的逗号，拆分成列）

xh_lwr

可以将转换的内容转换到旁边的Sheet1表中的A列和B列吗，谢谢

xh_lwr

719404338 发表于 2018-9-16 18:20

可以将转换的内容转换到旁边的Sheet1表中的A列和B列吗，谢谢

fangzheng90

microyip 发表于 2018-9-16 18:02

请教论坛的老师ado面对csv文件中带有=“”该如何操作？
http://club.excelhome.net/thread-1436122-1-1.html
(出处: ExcelHome技术论坛)
老师，请帮忙看下我的帖子，研究两天了，难道vba+ado+sql完成不了吗？

719404338

1. Sub t()
   
2. Dim i%, j%, k%, arr
   
3. k = 10
   
4. For i = 1 To 2
   
5. arr = Split(Range("b" & i), ",")
   
6.    For j = 0 To UBound(arr)
   
7.     Range("a" & k) = Range("a" & i)
   
8.     Range("b" & k) = arr(j)
   
9.    k = k + 1
   
10.    Next j, i
    
11. End Sub

复制代码