[已解决]两个表的数据转移，求高手！

437153

111.rar (8.22 KB, 下载次数: 10)

2014-9-10 10:49 上传

点击文件名下载附件

附件里面的老工作表
需要把数据换到新的工作表里面去。请问如何用vba搞定啊？

有几个需要注意的地方：
1、老表到新表的数据，是加在新表的最后一个非空单元格里面。
2、老表数据是空的单元格就不转到新表。

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-10 14:09

437153 发表于 2014-9-10 13:59
代码执行结果的，项目那一栏不对。 另外，老表到新表是加到最后一行非空单元格开始，因为新表已经有一些数 ...

不好意思，已修正，请看附件，如有问题再联系我

跳转到最佳答案楼层

这儿有肥猫

1. Sub zhuanyi()
   
2. Dim i&, j&, s&
   
3. s = 5
   
4. With Sheets("老")
   
5. For i = 5 To .Cells(Rows.Count, 1).End(3).Row - 1
   
6.     For j = 2 To .Cells(4, Columns.Count).End(xlToLeft).Column
   
7.         If .Cells(i, j) <> "" Then
   
8.            s = s + 1
   
9.            Sheets("新").Cells(s, 2) = .Cells(i, 1)
   
10.            Sheets("新").Cells(s, 3) = .Cells(3, 2)
    
11.            Sheets("新").Cells(s, 4) = .Cells(3, 4)
    
12.            Sheets("新").Cells(s, 5) = .Cells(i, 4)
    
13.            Sheets("新").Cells(s, 6) = .Cells(i, j)
    
14.         End If
    
15.     Next
    
16. Next
    
17. End With
    
18. End Sub
    

复制代码

这儿有肥猫

c附件

baksy

函数解决~
在新表B6:F6区域复制以下公式、下拉；
B6=INDEX(老!A:A,INT(SMALL(IF(老!$B$5:$K$36>0,ROW($B$5:$K$36)*100+COLUMN($B$5:$K$36)),ROW(A1))*1%))
C6=老!$B$3
D6=老!$D$3
E6=INDEX(老!$A$4:$K$4,MOD(SMALL(IF(老!$B$5:$K$36>0,ROW($B$5:$K$36)*100+COLUMN($B$5:$K$36)),ROW(A1)),100))
F6=INDIRECT("老!"&TEXT(SMALL(IF(老!$B$5:$K$36>0,ROW($B$5:$K$36)*100+COLUMN($B$5:$K$36)),ROW(A1)),"r0c00"),)

**其中 B6、E6、F6 单元格公式为三键回车(公式复制后,点一下公式编辑栏的任意位置,先按住 ctrl、shift 两个键,然后敲enter键)

名称	年	月	项目	金额	备注
D	2014	8	主板	2500
D	2014	8	风扇	1591.25
D	2014	8	cpu	513.6
D	2014	8	网卡	133.22
D	2014	8	鼠标	115.56
E	2014	8	主板	71336.04
E	2014	8	声卡	4458.5
E	2014	8	其他	1442722
F	2014	8	主板	27721.2
F	2014	8	声卡	1732.58
G	2014	8	机箱	30795
G	2014	8	风扇	33943.85
G	2014	8	cpu	7677.65
G	2014	8	显卡	14641
G	2014	8	鼠标	1147.77
H	2014	8	主板	8400

su45

一文一武

437153

这儿有肥猫 发表于 2014-9-10 11:10

代码执行结果的，项目那一栏不对。 另外，老表到新表是加到最后一行非空单元格开始，因为新表已经有一些数据了。麻烦好汉在帮忙看看行吗？？
都是空值的单元格不转移。

437153

baksy 发表于 2014-9-10 11:16
函数解决~
在新表B6:F6区域复制以下公式、下拉；
B6=INDEX(老!A:A,INT(SMALL(IF(老!$B$5:$K$36>0,ROW($B$ ...

老师不好意思，有两个问题忘记说了。对不起
有几个需要注意的地方：
1、老表到新表的数据，是加在新表的最后一个非空单元格里面。
2、老表数据是空的单元格就不转到新表。

这儿有肥猫

437153 发表于 2014-9-10 13:59
代码执行结果的，项目那一栏不对。 另外，老表到新表是加到最后一行非空单元格开始，因为新表已经有一些数 ...

不好意思，已修正，请看附件，如有问题再联系我

437153

这儿有肥猫 发表于 2014-9-10 14:09
不好意思，已修正，请看附件，如有问题再联系我

很感谢你提供的思路。
有一行代码没明白

1. .Cells(Rows.Count, 2).End(3).Row

复制代码

这一行是代表什么意思啊？

这儿有肥猫

437153 发表于 2014-9-10 14:40
很感谢你提供的思路。
有一行代码没明白这一行是代表什么意思啊？

第二列的最后一行