|
<p>我一听说有金币,就迫不及待地骑车赶来了,写了一个合并某列中相同单元格的半成品代码,以作交换.希望不要见笑</p><p>[em01]</p><p>dim i as integer '循环变量(行号)<br/>dim j as integer '合并区域的起始行号<br/>for i = 2 to ????<br/> if cells(i,1) <> cells(i-1,1) then<br/> j =i<br/> end if<br/> if cells(i,1) <> cells(i+1,1) then<br/> range("A"& j &":A" & i).Merge<br/> end if<br/>next i </p> |
|