Question

需要帮助，将相同的ID从另一个工作表复制到该工作表的最后一行。

因此，到目前为止，下面的代码是我得到的，并且一切正常。现在我需要将ID复制到宏已运行的数据的最后一行。

下面的代码基本上是我想要的，但是我希望它多次复制到最后一行，并且必须是动态的

Set CopyRng3 = wsCopy.Range("B1")
      'Currency
CopyRng3.Copy
        wsDest.Range("B" & lDestLastRow).PasteSpecial xlPasteValues

 For Each Col In CopyColumns

      lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "C").End(xlUp).Offset(1).Row
      lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, Col).End(xlUp).Row
      'Price Date
      Set copyrng = wsCopy.Range(Col & "30:" & Col & lCopyLastRow)
      'Price
      Set CopyRng2 = wsCopy.Range(copyrng(1, 1).Offset(0, 1), copyrng(copyrng.Rows.Count, 1).Offset(0, 1))
      'ID
      Set CopyRng3 = wsCopy.Range("B1")
      'Currency
      Set CopyRng4 = wsCopy.Range("C1")



        If copyrng.Find("#N/A", LookIn:=xlValues) Is Nothing Then
        copyrng.Copy
        wsDest.Range("C" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng2.Copy
        wsDest.Range("J" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng3.Copy
        wsDest.Range("B" & lDestLastRow).PasteSpecial xlPasteValues
        CopyRng4.Copy
        wsDest.Range("I" & lDestLastRow).PasteSpecial xlPasteValues

       End If

     Next Col


     For i = LoaderHeaderRow + 1 To lDestLastRow - 1
        'Action
        wsDest.Cells(i, RecAction) = "New"
        'Pricelist
        wsDest.Cells(i, Pricelist) = "RPIA.SIPF FV2"

     Next i

     MsgBox "Done"

基本上，我想从“ Wscopy”复制ID，然后将其粘贴到最后一行，然后循环到WsDest中的下一列这就是我的期望。谁能帮我这个？预先感谢

WsCopy worksheet
coulmn     B        E          H
        ABC123    ABC246    ABC345           

WsDEst worksheet

column
          B
         ABC123
         ABC123
         ABC123
         ABC123
         ABC246  
         ABC246 
         ABC246 
         ABC345
         ABC345
         ABC345

将数据字符串从另一个工作表的1个单元格复制到最后一行

0 个答案: