求助： EXCEL单元格数据分列转置

CLARK_HD

大家好，本人经常需要处理数据如下表所示，左边是原始格式，右边是要的结果，现在都是落后的手动操作，能否帮我做一个自动的宏程序一步完成。 谢谢大家！

1.01.000001	L1,L2,L3		L1	1.01.000001
1.01.000002	J1,J2		L2	1.01.000001
1.01.000003	BD1		L3	1.01.000001
			J1	1.01.000002
			J2	1.01.000003
			BD1	1.01.000003

coolall

Sub test()
Dim l As Integer
Dim f As Integer
For l = 2 To Range("a65536").End(xlUp).Row
  f = deal(1, l, f)
Next l
End Sub

Function deal(i As Integer, l As Integer, f As Integer) As Integer
Dim e As Integer
arr = Split(Cells(l, 2), ",")
e = UBound(arr) + 1
For i = i To e
    Cells(i + f + 1, 5) = Cells(l, 1)
    Cells(i + f + 1, 4) = arr(i - 1)
Next i
deal = e + f
End Function

看看是你需要的效果不？

CLARK_HD

coolall 发表于 2016-3-8 15:22
Sub test()
Dim l As Integer
Dim f As Integer

太好了，这正是我要的效果，谢谢COOLALL的帮忙。
另外能否再帮我做一个逆向的转换程序，就是以右边结果的形式转换成左边这种初始的格式（与之前这个分开的独立程序），因为我之前将数据分列转置就是要筛选有用的数据再进行分类合并的。 不胜感激！

coolall

先用颜色区分实现这个功能吧，逆向的算法有空帮你想想哦。

CLARK_HD

coolall 发表于 2016-3-9 13:12
先用颜色区分实现这个功能吧，逆向的算法有空帮你想想哦。

DEAR COOLALL: 谢谢你帮我修改了程序，但增加颜色区分并没有多大意义，可能是我之前表达的不清楚，其实我要的就是如下图的模拟结果：





顺便说一下我的实际应用（可以忽略）：一开始时，原始数据中每一行的B列单元格数据如“L1,L2,L3“代表电路板上的3个元件标识，并且L1可能在电路板的上面，L2,L3在板的下面，之前做的程序把B列数据拆分每一个与A列一一对应，目的就是可以用VLOOKUP以元件作搜索来匹配每一个元件到底是上面还是下面（我另外有表格对应元件位置与上、下面关系的），然后得到所有在板的上面的元件一个表和下面的一个表，再用这个逆向的程序分别把这两个表组合回原始的格式。


谢谢！

coolall

程序有点简陋 。看看是不是这个意思

CLARK_HD

coolall 发表于 2016-3-9 22:22
程序有点简陋 。看看是不是这个意思

不好意思隔了这么久才回复（太忙了），这个程序对了，另外我叫同事帮我轻微修改了一些排序的操作，十分感谢COOLALL的帮忙。

小喜利のもも

学到了，正好要用到这个，办了大忙了，感谢！