[已解决]练习1：VBA相同单元格合并

小线

<p>看下是什么样的最佳</p>

EPP

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>小线</i>在2010-5-12 12:15:00的发言：</b><br/><p>看下是什么样的最佳</p></div><p></p>

raulerini

看看~~~~~~~~~

raulerini

游客，如果您要查看本帖隐藏内容请回复

上清宫主

<p>为了学习而回复</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

上清宫主

<p>学习了，谢谢8楼提供的方法，还可以这样合并，少见多学一下。</p>

amulee

Sub 合并()<br/>&nbsp;&nbsp;&nbsp; Dim lStart&amp;, lEnd&amp;<br/>&nbsp;&nbsp;&nbsp; Dim i&amp;<br/>&nbsp;&nbsp;&nbsp; lStart = 2<br/>&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False<br/>&nbsp;&nbsp;&nbsp; For i = 3 To Range("A65536").End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Cells(i, 1) &lt;&gt; Cells(i - 1, 1) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lEnd = i - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If lEnd &gt; lStart Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range(Cells(lStart, 1), Cells(lEnd, 1)).Merge<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lStart = i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True<br/>End Sub

bjjgq

<p>本来想写点东西，可是网络不争气，写了一大段，没回复成功！！！</p>

sslz

<p>学习</p>

chentong361

学习了