ワークシートから別のワークシートにコンテンツをコピーする方法

私は2つのワークシートを持っています.1つは言語Aで、もう1つは言語Bで同じ順序(列と行)です。今私はこれら2つのワークシートを2言語で1つにまとめたいと思っています。私を助けてください

2

1 答え

このコードは、1番目と2番目のワークシートの各セルを値間の改行で結合し、結果のテキストを3番目のシートに配置します。

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 で始まることを前提としています。

1
追加された