选取表格的问题

kejianjue

<P>如何编写宏选取下图的表格以复制到别的表格中的问题：</P>
<P>假如 E3：E15 中有数字，可用下面的宏把整个表格选中:</P>
<P>Sub AAA()
  Sheets("Sheet1").Select
    Range("B3").Select
    Selection.CurrentRegion.Select
    Selection.Copy
End Sub</P>
<P>问题是假如E列全为空，则只能选中B：D列。要想选取整个表格(表格是筛选而成,行数不定)，该怎样编写宏才能把整个表格选中？</P>
<P>
</P><img src="attachments/dvbbs/2004-5/2004528123213770.jpg" 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="" />

kejianjue

<P>我有一个设想：先判断E3：E1000是否全为0，否的话，直接用上面的宏读取整个表格；是的话则再次读取F列</P><P>Sub AAA()
  Sheets("Sheet1").Select
    Range("B3").Select
    Selection.CurrentRegion.Select
    Selection.Copy
     (粘贴）
    if (判断E3：E1000是否全为0）
      Range("F3").Select
      Selection.CurrentRegion.Select
      Selection.Copy </P><P>       (粘贴）
    end if
End Sub</P><P>其中判断E列的宏该怎么写？</P>

tof

<P><a href="http://club.excelhome.net/viewthread.php?tid=29248" target="_blank" >http://club.excelhome.net/viewthread.php?tid=29248</A></P><P>循环判断单元格以后，选定自己许要的内容，复制 粘贴就可以了。</P>