轉換多張紙到一張紙上

Question

Sub sbCopyRangeToAnotherSheet() 
    Dim col As Integer 
    col = 1 
    For Each wks In Worksheets 
     If (wks.Name <> "Sheet23") Then 
      wks.Range("A1:z29").Copy Destination:=Sheets("Sheet23").Cells(1, col) 
      col = col + 25 
     End If 
    Next wks 
End Sub 

當我使用上面的代碼時，它只是將所有東西都加在一起。但我需要調換它，並將每張表單顯示在另一張下面，而不是彼此相鄰。我需要改變做什麼？

Answer 1

試試這個，讓我知道：

Option Explicit 

Sub sbCopyRangeToAnotherSheet() 

    Dim rngRange  As Range 
    Dim rnglasRow  As Long 
    Dim wksDestination As Worksheet 
    Dim wks    As Worksheet 

    Set wksDestination = Sheets("Sheet23") 

    For Each wks In Worksheets 
     If (wks.Name <> "Sheet23") Then 
      Set rngRange = wksDestination.Cells.Find("*", wksDestination.Cells(1, 1), xlFormulas, xlWhole, xlByRows, xlPrevious) 
      If Not rngRange Is Nothing Then 
       rnglasRow = rngRange.Row 
      Else 
       rnglasRow = 1 
      End If 
      wks.Range("A1:z29").Copy Destination:=Sheets("Sheet23").Cells(rnglasRow + 2, 1) 
     End If 
    Next wks 

    'Release Memory 
    Set rngRange = Nothing 
    Set wksDestination = Nothing 
    Set wks = Nothing 

End Sub