如何將內容從工作表複製到另一個

Question

我有兩個工作表，一個用語言A，一個用語言B，順序相同（列和行）。現在我想把這些02工作表合併成一個雙語言的工作表。請幫我

Answer 1

此代碼每個單元從與值之間的換行符第一和第二的工作表結合，並將在第三片所產生的文本：

Sub CombineSheets(sh1 As Worksheet, sh2 As Worksheet, dest As Worksheet) 
    Dim lNumRows As Long, lNumCols As Long 
    Dim lRow As Long, lCol As Long 

    lNumRows = sh1.UsedRange.Rows.Count 
    If sh2.UsedRange.Rows.Count > lNumRows Then lNumRows = sh2.UsedRange.Rows.Count 
    lNumCols = sh1.UsedRange.Columns.Count 
    If sh2.UsedRange.Columns.Count > lNumCols Then lNumCols = sh2.UsedRange.Columns.Count 
    For lRow = 1 To lNumRows 
     For lCol = 1 To lNumCols 
      dest.Cells(lRow, lCol) = sh1.Cells(lRow, lCol) & vbCrLf & sh2.Cells(lRow, lCol) 
     Next lCol 
    Next lRow 
End Sub 

注：這假定UsedRange開始兩個工作表上的A1。