使用具有动态行号的偏移功能

Question

寻找使此代码有效的方法：

这个想法是将数据块动态地粘贴在工作表的最后一个用过的单元格下面

具体来说，我正在寻找一种使用偏移函数

动态执行此操作的方法

Dim Sit As Long
Set Sit = Cells(Row.Count, 1).End(xlUp).Row

data_sheet1.Range(data_sheet1.Cells(1, iCol), data_sheet1.Cells(iRow, iCol)).Copy Destination:=target_Sheet.Cells(1, TargetCol).Offset(Sit, 0)

非常感谢

---

Sub test()

Dim Sit As Long
Sit = Cells(Row.Count, 1).End(xlUp).Row

MsgBox (Sit)

End Sub

这是错误所在;我已经隔离了这段代码

Answer 1

来自MSDN

  

设置关键字：在VBA中，设置关键字   有必要区分   分配对象和赋值   对象的默认属性。   由于默认属性不是   在Visual Basic .NET中支持   不需要设置关键字，也不需要   更长时间的支持。

参见此示例

Dim Sit As Long
With target_Sheet
    Sit = .Range("A" & .Rows.Count).End(xlUp).Row + 1
End With

With data_sheet1
    .Range(.Cells(1, iCol), .Cells(iRow, iCol)).Copy _
    target_Sheet.Cells(Sit, TargetCol)
End With