求助！

edei0795 · 发表于 2006-7-5 05:21:00

怎样用VBA或函数得到这个结果？？见附件！

zhaopin616 · 发表于 2006-7-5 21:35:00

看看是不是这洋

Sub jia()
Dim i As Integer
For i = 1 To 200 【此处假设有200条记录』
c = c & Sheets(1).Cells(i, 1).Value
Next i
Sheets(1).Cells(1, 2).Value = c

End Sub
我已经测试过了，可以得。

zhaopin616 · 发表于 2006-7-5 21:39:00

楼上的，另外问你一下，

附件怎末传上去？

我咋不会！代码你测试以下绝对ok

HSQ8888 · 发表于 2006-7-5 21:47:00

以下是引用zhaopin616在2006-7-5 13:39:00的发言：

楼上的，另外问你一下，

附件怎末传上去？

我咋不会！代码你测试以下绝对ok

你在快速回复中没有上传附件的窗口，你按回复或引用就会看到上传文件的窗口

edei0795 · 发表于 2006-7-6 06:38:00

谢谢zhaopin616的帮助，测试通过！

zhaopin616 · 发表于 2006-7-6 20:51:00

知道了

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 求助！

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)