[已解决]求助，表格转换

赏美尝乐

有一个产品价格表。
每一个产品对应有四种材质，每种材质价格不同。
我想将表格转换成一个简单的列表。
谢谢你的帮助，解决了问题，我一定会评最佳答案的！

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-21 17:41

回复 赏美尝乐 的帖子

附件： 表格转换.rar (10.42 KB, 下载次数: 5)

2011-4-21 17:40 上传

点击文件名下载附件
不知道你是不是这个意思：有点没看明白。你先试试看。

1. Sub 录入数据()
   
2. i = 1
   
3. For Ro = 2 To [A65536].End(xlUp).Row
   
4.    For Co = 1 To 4
   
5.      If Cells(Ro, Co + 1) <> "" Then
   
6.      Cells(i + 1, 7) = Cells(Ro, 1)
   
7.      Cells(i + 1, 8) = Cells(1, Co + 1)
   
8.      Cells(i + 1, 9) = Cells(Ro, Co + 1)
   
9.      i = i + 1
   
10.      End If
    
11.    Next Co
    
12. Next Ro
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

sunjing-zxl

回复 赏美尝乐 的帖子

你的右边表格数据
和左边表格数据对不上号。
不明白你的意思

赏美尝乐

回复 sunjing-zxl 的帖子

能对上的呀，要涂一下颜色，你重新下载，谢谢

wuxingai

楼主的意思,是不是将一个二维的数据转表成一维的.
选定二维表区域中的任意单元格,单击菜单 数据透视表
在向导3步骤之1中选择 多重合并计算数据区域
在向导3步骤之2a,选择创建单页字段
在向导3步骤之2bk ,选择数据区域
在向导3步骤之3中,选择瓣建工作表
分别将行和列按钮按住并从数据透视表中拖走
双击唯一的汇总数据即中生成一维的数据列表

赏美尝乐

回复 wuxingai 的帖子

是呀，你的意思似乎可以完成我的要求。数据透视表没有使用过。

ljzzlan

貌似没弄明白意思

JLxiangwei

回复 赏美尝乐 的帖子

sunjing-zxl

回复 赏美尝乐 的帖子

附件： 表格转换.rar (10.42 KB, 下载次数: 5)

2011-4-21 17:40 上传

点击文件名下载附件
不知道你是不是这个意思：有点没看明白。你先试试看。

1. Sub 录入数据()
   
2. i = 1
   
3. For Ro = 2 To [A65536].End(xlUp).Row
   
4.    For Co = 1 To 4
   
5.      If Cells(Ro, Co + 1) <> "" Then
   
6.      Cells(i + 1, 7) = Cells(Ro, 1)
   
7.      Cells(i + 1, 8) = Cells(1, Co + 1)
   
8.      Cells(i + 1, 9) = Cells(Ro, Co + 1)
   
9.      i = i + 1
   
10.      End If
    
11.    Next Co
    
12. Next Ro
    
13. End Sub
    

复制代码

sunjing-zxl

回复 赏美尝乐 的帖子


的左边的第二行和右边的
3,4两行对的上吗？
看来我猜对了。我的VBA的结果应该就是你要的结果。

赏美尝乐

回复 sunjing-zxl 的帖子

不好意思 ，是我疏忽了，第二个代号，后面应该是L-02，让你没看明白的。