Question

我有2本工作簿。

源工作簿 - 在表格的列B 最后一行中选择一个单元格。例如B29（但随着桌子的增长，这会改变）

第二本练习册 - 将该单元格粘贴到第二个工作簿的 G14 中（这不会改变）

源工作簿 - 在列D 中选择一个单元格，同一行 - 表格的最后一行。例如...... D29

第二本练习册 - 将该单元格粘贴到 D8 （这不会改变）

同样的过程重复4次（ E-H列），所有粘贴分别完成 C3，F14，I14和E14 。

Answer 1

以下代码将满足您的需求。只需进行评论中提到的更改即可。

Sub Copy2Workbook() 'You need to place this in your source workbook!
    Dim wbT As Workbook ' target workbook
    Set wbT = Workbooks("United")
    Dim shtT As Worksheet 'target worksheet
    Set shtT = wbT.Worksheets("Name of target sheet") ' change name to fit your case
    Dim shtS As Worksheet 'source worksheet
    Set shtS = ThisWorkbook.Worksheets("Name of source sheet") ' change name to fit your case
    Dim lastRow As Long
    '*****************************************
    lastRow = shtS.Cells(Rows.Count, "B").End(xlUp).Row
    shtT.Range("G14").Value = shtS.Range("B" & lastRow).Value
    'repeat the two lines of above while changing the references to your needs
End Sub

选择表的结束行，复制并粘贴到另一个工作簿中

1 个答案: