您的位置：程序门 -> vb -> vba

非常想見識一下vba高手的厲害！！問題請看說明！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

非常想見識一下vba高手的厲害！！問題請看說明！！[已结贴,结贴人:paullbm]

发表于：2007-05-23 15:52:32 楼主

sheet1:（6) ¦sheet2: （5) ¦
================ ¦================ ¦
a b ¦ a b ¦
商品號數量 ¦商品號數量 ¦
10001 20 ¦10001 22 ¦
10002 20 ¦10002 27 ¦
10004 35 ¦10003 15 ¦
10005 25 ¦10005 25 ¦
10006 50 ¦10008 52 ¦
10007 100

=================================
sheet3:（8)
a b
商品號數量
10001 42
10002 47
10003 15
10004 35
10005 50
10006 50
10007 100
10008 52

================說明：
1.已知表1和表2的記錄已排序！將這兩個表按如上圖示進行合並後，保存至表3中！
2.小（)里的數字代表記錄個數。sheet代表excel中的表！
3.事實上表1和表2的記錄數實際上並不只這些，所以希望大蝦不要以常量處理記錄數！因為實際存在的記錄可能成百上千條（也就是記錄數不確定)！

发表于：2007-05-23 15:53:151楼得分:0

說明補充：
4.a、b都是excel表中的字段！

发表于：2007-05-23 16:46:572楼得分:5

哈哈楼主不要用激将法！
这么简单的问题，不用高手才会做吧～

发表于：2007-05-23 16:55:243楼得分:10

感觉不是很难，可惜我不太会vba.

发表于：2007-05-23 17:03:374楼得分:5

接掉，重写个题目吧

发表于：2007-05-23 18:07:365楼得分:0

我沒有用激將法啊。各位大蝦們請相信偶！！！

我只是熟悉一些vb語法而已。但對excel和vb之間的接口方面的問題，還有對vba可以說一點也不懂。所以特別希望各位大蝦幫忙，還望不吝賜教！！！

发表于：2007-05-23 19:10:506楼得分:15

写个宏好了 excel 中alt+f8 具体代码不想写太简单了

发表于：2007-05-23 19:17:377楼得分:0

拜托各位大哥幫幫忙撒。。。。。。

发表于：2007-05-24 00:13:438楼得分:10

自己录制一下宏就可以了
vba本身没有什么东西，得看具体应用程序对vba暴露的接口

发表于：2007-05-24 08:29:479楼得分:30

lz 就这点东东根本区分不出高手与菜鸟
基本用手工处理就ok了无需vba出马

第一步创建新表--复制粘贴删重复记录--结果象这个
sheet3:（8)
a b
商品號數量
10001
10002
10003
10004
10005
10006
10007
10008

第二步在b2填公式并填充该列
=sumif（sheet1!$a:$a,a2,sheet1!$b:$b)+sumif（sheet2!$a:$a,a2,sheet2!$b:$b)

第三步把冰箱门关上

发表于：2007-05-24 09:54:4910楼得分:0

好难

发表于：2007-05-24 20:37:1211楼得分:15

根本不用vba编程,也不用函数公式,有菜单功能.
把sheet1和sheet2的内容都copy到sheet3, 先做排序（主关键字是商品号），再做分类汇总（分类字段是商品号，汇总字段是数量，汇总方式是sum）即可。

发表于：2007-05-24 22:24:1612楼得分:0

很简单。

发表于：2007-05-24 23:19:5013楼得分:0

认为很简单的大哥就麻烦说一下撒！！！

发表于：2007-05-24 23:30:5414楼得分:0

我的方法不行吗？

发表于：2007-05-25 08:41:4615楼得分:5

lz不要光说不练
lxw7131和我给的这2种方法都可行

发表于：2007-05-25 13:59:0516楼得分:5

lxw7131（) （ ) 信誉：100 blog 加为好友 2007-5-24 20:37:13 得分: 0

根本不用vba编程,也不用函数公式,有菜单功能.
把sheet1和sheet2的内容都copy到sheet3, 先做排序（主关键字是商品号），再做分类汇总（分类字段是商品号，汇总字段是数量，汇总方式是sum）即可。

======================================================
同决这位仁兄的意见，补充一下，
分类汇总后，把左边的所有的减号变成加号，
也就是只看汇总结果，
然后选中复制，到sheet4中粘贴。
再查找替换把“汇总”二字全部替换掉。