range 的select 问题

onedogface

<P>以下代码：</P>
<P>Private Sub CommandButton1_Click()
Worksheets(1).Select
irow = [e65536].End(xlUp).Row
ActiveSheet.Range("a4:aa" &amp; irow).Select
Selection.Copy
Worksheets(2).Activate
mrow = [e65536].End(xlUp).Row + 1
Range("A" &amp; mrow).Select
Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End Sub</P>
<P>运行到“Range("A" &amp; mrow).Select”这里的时候出错，请问大家，这是为什么呢？</P>

[此贴子已经被作者于2005-6-6 14:49:50编辑过]

james.wan

将文件上传吧

onedogface

文件已上传，请多多指教!!!

glober609

<P>Range("A" &amp; mrow).Select</P><P>问题不出在mrow,我测试上面说类range的select方法无效！</P>

glober609

<P>mrow = [e65536].End(xlUp).Row + 1</P><P>这条语句答案为什么是11？我认为应该是4才对阿！！</P><P>望解释！</P>

JINJIBIYE

<P> 我的更简单,只是复制\粘贴,但是就不可以.</P>
<P> 第一次来这里,希望大家帮忙,很急.
    Range("A5:F31").Select
   
    Selection.Copy
    Sheets("资产负债表数据库").Select
   
    Range("A5:F31").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False</P>

<P> 我在想是不是它不能对空的区域进行选择啊?  </P>
<P> 如果  得到大家的帮助,真的很感谢,谢谢啊.</P>

onedogface

<P>Range("A" &amp; mrow).Select</P><P>问题不出在mrow,我测试上面说类range的select方法无效！</P><P>

</P><P>正是这样，问题怎么也解决不了，困惑中........</P><P>救命呀!!</P>

james.wan

Private Sub CommandButton1_Click()
Worksheets(1).Select
irow = [e65536].End(xlUp).Row
ActiveSheet.Range("a4:aa" &amp; irow).Select
Selection.Copy
Worksheets(2).Activate
mrow = Worksheets(2).[e65536].End(xlUp).Row + 1
Worksheets(2).Range("A" &amp; mrow).Select
Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=False
End Sub

onedogface

<P>james.wan谢谢你。。</P><P>问题已解决。。</P>