ExcelでXNUMXつの列を交互の値でXNUMXつにマージする方法は？

ワークシートのXNUMXつの列を次に示します。これらのXNUMXつの列をXNUMXつの列にマージし、以下のスクリーンショットに示すように値を変更します。 XNUMXつずつ並べ替えることなく、どのようにしてジョブをすばやく処理できますか？

VBAコードで値を交互に変えてXNUMXつの列をXNUMXつにマージします

Kutools for Excelにより、XNUMXつの列を交互の値でXNUMXつにマージします

VBAコードで値を交互に変えてXNUMXつの列をXNUMXつにマージします

XNUMXつの列を交互の値でXNUMXつにマージするために、ExcelのVBAコード以外の組み込み関数はありません。

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。 クリック インセット > モジュール 新しい空のモジュールを作成します。

2.以下のコードをコピーしてモジュールに貼り付けます。

VBA：XNUMXつの列をXNUMXつにマージし、値を変更します

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3。 押す F5 キーを押して、ポップダイアログにマージするXNUMXつの列を選択します。

4。 クリック OK、XNUMX番目のダイアログで、結果を配置するセルを選択します。

5。 クリック OK。 これで、選択したXNUMXつの列がXNUMXつにマージされ、値が代替されました。

Kutools for Excelにより、XNUMXつの列を交互の値でXNUMXつにマージします

あなたが持っている場合 Kutools for Excel Excelにインストールされ、その Transform Range ユーティリティは、たった3つの簡単なステップでこの仕事を解決できます。

インストールした後 Kutools for Excel、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1.マージする列（XNUMXつ以上）を選択し、をクリックします クツール > Transform Range.

2。 の中に Transform Range ダイアログ、チェック Range to single column オプションをクリックして Ok.

3.セルを選択して、結果をポップダイアログに配置します。 クリック OK.

これで、列がXNUMXつにマージされ、値は別の順序になりました。

  転置範囲