用VB将a表数据更新到b表(QQ352663575

v1153 · 发表于 2012-1-19 23:05

lzqmsy 发表于 2012-1-14 21:17

感谢您，大哥

lzqmsy · 发表于 2012-1-20 00:46

进出库-2012-1.rar (31 KB, 下载次数: 54) 有些修改

yiyiyicz · 发表于 2012-1-20 09:31

本帖最后由 yiyiyicz 于 2012-1-20 09:35 编辑

方法有很多种，比如
for i=1 to sheets("进出库单").range("V65536").end(xlup).row
set c=range("A4:A"&range("A65536").end(xlup).row).find(sheets("进出库单").range("V"&i)&sheets("进出库单").range("W"&i))
for k=5 to 19
if sheets("进出库单").cells(i,24)=k+27 then cells(c.row,k)=sheets("进出库单").cells(i,25)
next k
next i

以上是基于你的数据很规范
看起来，你的数据并不太规范。如果不是太乱，加判断条件
如果太乱，先自己整理数据，建立规范
企业里，数据不规范的毛病，由来已久。想用计算机，先得过这一关

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

[求助] 用VB将a表数据更新到b表(QQ352663575