[问题]V6综合练习3批量连接Email地址用数组方法解决

箫风 · 发表于 2008-1-12 22:24

感觉V1-6综合练习3批量连接Email地址可以用数组方法解决的，刚学过了一个JOIN数组函数，但还不能得出正确答案，请VBA高手们出手吧！

兰色幻想 · 发表于 2008-1-12 23:12

Sub 连接2()   Dim arr, arr1() mrow = Range("a65536").End(xlUp).Row ReDim arr1(1 To mrow \ 20 + 1, 1 To 1) For x = 2 To mrow Step 20   k = k + 1   arr1(k, 1) = Join(Application.Transpose(Range(Cells(x, 1), Cells(x + 19, 1))), ",") Next x   Range("c2").Resize(k) = arr1 End Sub

hhzjxss · 发表于 2008-1-13 00:16

哇噻，还有这一招呀！[em17]

hhzjxss · 发表于 2008-1-13 00:22

可惜帮助文件的Join函数很简单，没有示例！

箫风 · 发表于 2008-1-13 12:42

兰版的方法就是好啊！我原来的思路是先把所有的邮箱地址全部放入一个数组，再进行处理，没有成功！

王海丽 · 发表于 2008-1-13 12:52

哗,看来还有很多都没学到啊,越学,就感觉越笨啊

alexpan · 发表于 2008-1-13 13:34

ReDim arr1(1 To mrow \ 20 + 1, 1 To 1) 这里的\20+1是什么意思

alexpan · 发表于 2008-1-13 13:42

如果不用JOIN,代码会是什么样的.

zjxia889 · 发表于 2008-1-14 19:06

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用alexpan在2008-1-13 13:34:00的发言： ReDim arr1(1 To mrow \ 20 + 1, 1 To 1) 这里的\20+1是什么意思</div>整除20再加1的意思

zgwei050 · 发表于 2008-1-14 19:26

先下载，后学习

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