VBA Excel粘貼到最後一個空單元格

這是我的代碼，它可以很好地拉動數據。但我需要從另一個表單拉出更多數據才能進入最後一個空單元格，因此我將所有數據放在一起。VBA Excel粘貼到最後一個空單元格

我可以使用相同的代碼並更改名稱，只需將Paste粘貼到最後一個空行？

Sub Run1() 

    Set wsInfoFrom = Worksheets("StowToPrimeWest") 
    Set wsInfoTo = Worksheets("View") 

    lastrow = wsInfoTo.Range("A" & wsInfoTo.Rows.Count).End(xlUp).Row 

    wsInfoTo.Range("A1:A" & lastrow).ClearContents 

    lastrow = wsInfoFrom.Range("A" & wsInfoFrom.Rows.Count).End(xlUp).Row 

    Set copyRange = wsInfoFrom.Range("A1:A" & lastrow) 

    copyRange.SpecialCells(xlCellTypeVisible).Copy wsInfoTo.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 

    Worksheets("View").Activate 

End Sub

來源

2017-08-09 Mils

我懷疑，你可以複製的代碼，它會做你想要做什麼**除了**行說'wsInfoTo.Range（「A1：A」＆LASTROW）.ClearContents'，它清除了所有內容都來自「查看」表單中的列A，因此您應該只做一次。 – YowE3K

完美，謝謝你。你會碰巧知道我必須在代碼中只複製上一個單元格中的數字，而不是整個公式中的數字嗎？ – Mils

我建議你沿着「我有下面的代碼[然後包括你的代碼]，從兩個工作表複製單元格（作爲公式）的行發佈另一個問題。我需要改變只複製值？「答案有望沿着'wsInfoTo.Range（....）。Value = wsInfoFrom.Range（....）。Value'的方向行進，但是對於我來說，（這不是**這個**問題的答案），這就是爲什麼我建議一個新的問題。 – YowE3K

您可以只複製該代碼，它會做你想做，除了這行做什麼：

wsInfoTo.Range("A1:A" & lastrow).ClearContents

它清除出一切從A列中的「查看」片，所以你應該只做一次。

來源

2017-08-09 23:14:53 Mils

這確實幫我釘了什麼，我一直在努力！謝謝 – Mils

VBA Excel粘貼到最後一個空單元格

回答

相關問題