【v1-6综合练习题3】批量连接Email地址

greenzhu

<p>做来做去,做不对,不知道错在那里,请兄弟们指正</p><p>Sub email()<br/>Dim x%, y%, z%, i%<br/>Dim str As String<br/>y = 1<br/>z = 2<br/>i = 1<br/>str = Cells(2, 1)<br/>For x = 2 To Range("a65536").End(xlUp).Row<br/>&nbsp;&nbsp; If y / 20 = 1 Then<br/>&nbsp;&nbsp;&nbsp; y = 1<br/>&nbsp;&nbsp;&nbsp; z = z + 1<br/>&nbsp;&nbsp;&nbsp; i = i + 21<br/>&nbsp;&nbsp;&nbsp; str = Cells(i, 1)<br/>&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp; str = str &amp; "," &amp; Cells(x, 1)<br/>&nbsp;&nbsp;&nbsp; Cells(z, 3) = str<br/>&nbsp;&nbsp;&nbsp; y = y + 1<br/>&nbsp;&nbsp; End If<br/>Next<br/>End Sub</p>

hncd

Sub tt3()<br/>燚im AAA As String<br/>燚im i As Integer<br/>燜or i = 2 To Range("a65536").End(xlUp).Row<br/>營f AAA = "" Then<br/>?AAA = Cells(i, 1)<br/>?Else<br/>?AAA = AAA &amp; "," &amp; Cells(i, 1)<br/>?End If<br/>?Next i<br/>?Cells(2, 3) = AAA<br/>?<br/>End Sub<br/>

hncd

Sub tt3()<br/>Dim AAA As String<br/>Dim i As Integer<br/>For i = 2 To Range("a65536").End(xlUp).Row<br/>If AAA = "" Then<br/>AAA = Cells(i, 1)<br/>Else<br/>AAA = AAA &amp; "," &amp; Cells(i, 1)<br/>End If<br/>Next i<br/>Cells(2, 3) = AAA<br/>End Sub

hai

[em01]

jianzh

<br/>Sub 连接()<br/>Dim x, y, z As Integer<br/>Dim email As String<br/>For x = 2 To Range("A65536").End(xlUp).Row Step 20<br/>y = Range("C65536").End(xlUp).Row + 1<br/>&nbsp; For z = 1 To 20<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If email = "" And Cells(x + z - 1, 1).Value &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; email = Cells(x + z - 1, 1).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf email &lt;&gt; "" And Cells(x + z - 1, 1).Value &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; email = email &amp; "," &amp; Cells(x + z - 1, 1).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp; Next z<br/>Cells(y, 3) = email<br/>email = ""<br/>Next x<br/>End Sub

[此贴子已经被作者于2007-12-23 16:15:03编辑过]

yangfei1983

<p>Sub tt()<br/>Dim x As Integer, rmg As String<br/>For x = 2 To Range("a65536").End(xlUp).Row<br/>If (x - 2) Mod 20 = 0 Then<br/>rmg = Cells(x, 1)<br/>Else: rmg = rmg &amp; "," &amp; Cells(x, 1)<br/>Cells(Int((x - 2) \ 20) + 2, 3) = rmg<br/>End If<br/>Next x<br/>End Sub</p><p></p><p>做出来了,但是测试速度好象不快..</p>

hai

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>minant</i>在2007-12-16 18:16:00的发言：</b><br/><p>占位</p><p>我的也做完了[em01][em01][em01]</p><p>&nbsp;</p><p>Sub exercise3()<br/>Dim i%<br/>&nbsp;&nbsp;&nbsp; With Sheets(1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 2 To .Cells(65536, 1).End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (i - 2) Mod 20 = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Cells(.Cells(65536, 3).End(xlUp).Row + 1, 3).Value = .Cells(i, 1).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Cells(.Cells(65536, 3).End(xlUp).Row, 3).Value = _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Cells(.Cells(65536, 3).End(xlUp).Row, 3).Value &amp; "," &amp; .Cells(i, 1).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub<br/></p><br/></div><p></p>&nbsp;&nbsp; 沒聽課，只能偷看作業[em04]

燕子11

[em01]兰老师讲了之后 再下载下来做做

wayy

再学习一下。