怎么通过命令把表1的N列追加到表2最后？

ymx_bear

初来杂到，，，请指教！！！

chifan

Sub AddText()
    Sheet1.Select
    Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)) = _
    Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Value
    Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Copy _
    Sheet2.Cells(Sheet2.[A65536].End(xlUp).Row + 1, 1)
    Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Clear
    Sheet1.Activate
End Sub
版主同志：
     我试验过了，你的好象是粘贴过去再进行仅复制数值的操作，我把它调整到前面去，变成了先原处复制好在粘贴到SHEET2，好象也可以。
    呵呵，我又知道了个怎么粘贴数值的命令：），多谢多谢
   范围 = 范围.VALUE

cheerson

TO：zslevin
你的注释使我受益匪浅，能否解释一下
范围 = 范围.value
是什么意思？

xiaoxiong

我是这样做，看有没有帮助。
Sub 宏1()
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Offset(1).Select
    Selection.Copy
   
    Sheets("Sheet2").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A6").Select
    ActiveSheet.Paste
End Sub

chifan

hehe,谢谢大家了。VBA的数据复制粘贴我已经背出来了：）
我现在研究窗体输入数据呢，其中TEXTBOX的光标跳转怎么设定呢？SETFOCUS？

xiaoxiong

说具体一点。

chifan

比如一共设定了三个输入框，第一个输入后回车，光标跳到第二个，再输入后回车跳到第三个是怎么实现的？

xiaoxiong

依次设置各个控件的tabindex属性为0，1，2

chifan

喔～，我试下。谢啦

chifan

晕～，又不行了。帮忙看下，以下公式有错吗？
Sheet2.Cells(2, 1) = Sheet1.Cells(7, 7).Value
想拷贝 SHEET1的"H7"数值到Sheet2的“A2”，可老是424错误。