怎样批量取消隔行的数据或文本?

8578oyyp

<p>怎么样一次性取消隔行的数据或者是文本?</p>

rqan

怎样批量取消隔行的数据或文本?

<br/>

hai

<p>Sub 删除隔行的数据()<br/>Dim i As Integer<br/>For i = 2 To Range("a65536").End(xlUp).Row<br/>If i Mod 2 = <font color="#ff0000">0</font> Then<br/>Rows(i).ClearContents<br/>End If<br/>Next i<br/>End Sub</p><p>如果想删除奇行把0改为1!</p>

8578oyyp

非常感谢!这是个很实用的方法!

8578oyyp

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hai</i>在2008-4-7 22:22:00的发言：</b><br/><p>Sub 删除隔行的数据()<br/>Dim i As Integer<br/>For i = 2 To Range("a65536").End(xlUp).Row<br/>If i Mod 2 = <font color="#ff0000">0</font> Then<br/>Rows(i).ClearContents<br/>End If<br/>Next i<br/>End Sub</p><p>如果想删除奇行把0改为1!</p></div><p>这个函数用法复杂了一点,我还要更加努力哦!</p>[em04]

衣衣

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>8578oyyp</i>在2008-4-10 19:09:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hai</i>在2008-4-7 22:22:00的发言：</b><br/><p>Sub 删除隔行的数据()<br/>Dim i As Integer<br/>For i = 2 To Range("a65536").End(xlUp).Row<br/>If i Mod 2 = <font color="#ff0000">0</font> Then<br/>Rows(i).ClearContents<br/>End If<br/>Next i<br/>End Sub</p><p>如果想删除奇行把0改为1!</p></div><p>这个函数用法复杂了一点,我还要更加努力哦!</p>[em04]</div><p></p><p>[em04][em04]</p><p>这是VBA</p>

yaoxuejian

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>rqan</i>在2008-4-7 22:20:00的发言：</b><br/><img src="data/attachment/forum/dvbbs/2008-4/20084722194834982.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/></div><p>这个蛮好的额</p>[em06]