Question

您好，我正在尝试合并两张纸。我需要将一个范围从一列复制到另一个工作表上列的下一个空单元格。我已经尝试了五种我在互联网上找到的方法，到目前为止它们都没有工作，尽管它看起来应该是一个简单的操作。我有以下代码给出

Range类的复制方法失败

任何帮助都将不胜感激。

List<Object1> list1
List<Object2> list2

Object1 has fields:
- fieldA
- fieldB
- fieldC
- fieldsD

Object2 has fields:
- fieldB
- fieldE
- fieldF

Answer 1

范围+ 1正在抛弃你。

尝试定义目标之外的最后一行，以便粘贴到已知的单元格位置，例如：

dim lr as long, lr2 as Long
With Sheets("SQL_DATA_FEED")
    lr = .cells(.rows.count,2).end(xlup).row
    lr2 = ssaw.cells(ssaw.rows.count,3).end(xlup).row
    ssaw.Range(ssaw.cells(2,"C"),ssaw.cells(lr2,"C")).Copy Destination:=.cells(lr+1,2)
End With

尝试从一列中选择一系列单元格并将其粘贴到另一列中的最后一个填充单元格下方

1 个答案: