u998EXCEL中用VBA计算多个数的和并排列好。

U997不能用了，请给个最新版，谢谢

U997已经不能用了，现在是U998，给分后马上发给你。

如果答案不满意可以联系我

友信达u998是什么牌子的啊

深圳市友信达通讯有限公司规格参数上市时间：2008年02月网络频率：GSM/GPRS；900/1800MHz重nbsp;量nbsp;：未知尺寸/体积：105×45×14.5mm可选颜色：白色屏幕参数：TFT彩色屏幕；2.8英寸；基本功能『时钟』『内置振动』『录音』『可选铃声』『MP3铃声』『待机图片』『图形菜单』和弦铃声：nbsp;64nbsp;和弦nbsp;通信功能『内置天线』『中文输入』『中文短信』『超长短信』『多媒体短信』『通话记录』话机通讯录：共500条nbsp;多媒体娱乐『视频播放』『电子书』多媒体卡扩展：支持microSD卡扩展，最大2GBnbsp;摄像头：视频拍摄：有声视频拍摄网络摄像头：支持MP3播放器：支持歌词同步显示nbsp;个人助理『闹钟』『日历』『秒表』『备忘录』『世界时钟』

EXCEL中用VBA计算多个数的和并排列好。

代码如下,详见附件,(点击按钮即可) Private?Sub?CommandButton1_Click() ???Dim?Ar,?i%,?j%,?A%,?B%,?N1%,?N2%,?Arr(1?To?2)?As?Integer ???Range("X999:AF1000").ClearContents ???Ar?=?Range("X998:AE1001") ???[T1000]?=?Left([A1000],?1):?[U1000]?=?Mid([A1000],?2,?1):?[V1000]?=?Right([A1000],?1) ???Ar(3,?1)?=?[T1000]:?Ar(3,?2)?=?[V1000]:?Ar(3,?3)?=?[T999]:?Ar(3,?4)?=?[U999] ???Ar(3,?5)?=?[V999]:?Ar(3,?6)?=?[T998]:?Ar(3,?7)?=?[U998]:?Ar(3,?8)?=?[V998]:?B?=?[U1000] ???For?i?=?1?To?2 ??????A?=?IIf(i?=?1,?1,?-1) ??????For?j?=?1?To?8 ?????????Ar(i,?j)?=?(Ar(3,?j)?+?A?*?B?+?10)?Mod?10 ?????????For?k?=?1?To?j?-?1 ????????????If?Ar(i,?k)?=?Ar(i,?j)?Then?Arr(i)?=?Arr(i)?+?1:?Exit?For ???Next?k,?j,?i ???Range("X999:AE1000")?=?Ar ???[AF999]?=?8?-?Arr(1):?[AF1000]?=?8?-?Arr(2) End?Sub