複製不同的工作表並將它們製作爲一張工作表

-1

我有兩個工作表1和2.在工作表1中，我有一個按鈕用於瀏覽文件並將其粘貼到第二個工作表中，因此我需要幫助才能瀏覽第二個工作表片並能夠將其粘貼在目前在表2已經存在的第一個我很感激你的幫助複製不同的工作表並將它們製作爲一張工作表

Sub hh() 
' 
' hh Macro 
' 

' 
    Range("A1:A11").Select 
    Selection.Copy 
    Sheets("Sheet1").Select 
    Range("B19").Select 
    ActiveSheet.Paste 
    ActiveWindow.SmallScroll Down:=9 
    Sheets("Sheet2").Select 
    Range("A2:A5").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Sheet1").Select 
    Range("B30").Select 
    ActiveSheet.Paste 
End Sub

我重新編碼驗證碼手動

來源

2012-10-09 Mr Mashabela

你們是不是要合併兩個表：最後一排就這樣被發現的？ – Stepan1010

您完全刪除了所有代碼並粘貼了與原始代碼/描述有關的複製和粘貼數據的新代碼。（仍然存在於代碼塊之上）如果您有第二個問題，則應關閉此代碼併發布第二個問題。在回答問題後不要編輯問題，併發布第二個全新的問題。 – danielpiestrak

它確實與標題 –

注：這個答案是對原來的問題與Sub hh已被編輯出來，以創建一個新的問題

的所有原代碼首先可以改寫爲：

Sub hh() 

Sheets("Sheet2").Range("A1:A11").Copy 
Sheets("Sheet1").Range("B19").Paste 
Sheets("Sheet2").Range("A2:A5").Copy 
Sheets("Sheet1").Range("B30").Paste 

End Sub

現在你可以修改基於「最後一排」，這是什麼，我相信你問的粘貼位置。

（以行註釋）

Sub hh() 

'Varible to store the last row in 
Dim iLastRowSheet1 As Long 

'copy initial data to memory 
Sheets("Sheet2").Range("A1:A11").Copy 

'find current last row 
With Sheets("Sheet1") 
    iLastRowSheet1 = .Range(B & .Rows.Count).End(xlUp).Row 
End With 

'paste using last row found + 1 
Sheets("Sheet1").Range("B" & (iLastRowSheet1 + 1)).Paste 

'repeat 
Sheets("Sheet2").Range("A2:A5").Copy 
With Sheets("Sheet1") 
    iLastRowSheet1 = .Range(B & .Rows.Count).End(xlUp).Row 
End With 
Sheets("Sheet1").Range("B" & (iLastRowSheet1 + 1)).Paste 

End Sub

來源

2012-10-09 20:07:55 danielpiestrak

複製不同的工作表並將它們製作爲一張工作表

回答

相關問題