物料分类打散跪求解决

goodwin168 · 发表于 2012-6-27 06:26

本帖最后由 goodwin168 于 2012-6-27 16:58 编辑

要求：

如A1                            B1                      C1
123456/1234567          123             RC1,RC5,RC6

转换结果

123456                      123             RC1
123456                      123             RC5
123456                      123             RC6
1234567                      123             RC1
1234567                      123             RC5
1234567                   123             RC6
数据打散.rar

goodwin168 · 发表于 2012-6-27 06:35

没有人可以帮忙的吗，这么大的HOME？

pzwzwangzan · 发表于 2012-6-27 07:18

你应该上个附件。

TFQWFN · 发表于 2012-6-27 07:33

分列后用透视表

goodwin168 · 发表于 2012-6-27 16:59

本帖最后由 goodwin168 于 2012-6-27 17:03 编辑

刚刚上传了附档，求助数据打散.rar

goodwin168 · 发表于 2012-6-27 22:25

没有人可以帮忙的吗，这么大的HOME？

pzwzwangzan · 发表于 2012-6-29 12:05

你这话说的会让人家不高兴的，人家也没有义务专门去解决你的难题，主要还是靠自己努力学习啊，你看下是否满足你的要求。

goodwin168 · 发表于 2012-6-29 22:08

非常感谢，谢谢楼上的大哥啊，你的QQ是多少，能否加上交个朋友？

goodwin168 · 发表于 2012-6-29 22:25

大家再帮忙看看，我在SHEET2中转换后的显示位置要改一下，行数和列数不一样，谢先了

pzwzwangzan · 发表于 2012-6-29 23:44

Public Sub 打散()
Dim x As Integer, y As Integer, arr1, arr2, c1 As Integer, c2 As Integer, gao As Integer
Dim xh1 As Integer, xh2 As Integer
gao = Sheets(2).[E65536].End(3).Row + 1
Sheets(2).Range("E13:G" & gao).ClearContents
Sheets(2).Cells(13, "E") = "料号"
Sheets(2).Cells(13, "F") = "规格"
Sheets(2).Cells(13, "G") = "位置"
gao = Sheets(2).[E65536].End(3).Row + 1
x = [A65536].End(3).Row
For y = 2 To x
arr1 = Split(Cells(y, 1), "/")
arr2 = Split(Cells(y, 3), ",")
c1 = Application.CountA(arr1)
c2 = Application.CountA(arr2)

For xh1 = 1 To c1
For xh2 = 1 To c2
Sheets(2).Cells(gao, "E") = Application.Index(arr1, , xh1)
Sheets(2).Cells(gao, "F") = Cells(y, 2)
Sheets(2).Cells(gao, "G") = Application.Index(arr2, , xh2)
gao = gao + 1
Next xh2

Next xh1

Next
MsgBox "BOM转换完成，打散完成"
End Sub
你把代码复制进去，看对不对，我的QQ是418971491，平时很少上，因为上班没网络。

		自动登录	找回密码
密码			免费注册

物料分类打散 跪求解决

物料分类打散跪求解决