メインコンテンツへスキップ

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

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

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

Kutools for Excelにより、XNUMXつの列を交互の値でXNUMXつにマージします良いアイデア3


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つの列を選択します。
docは2つの列を交互の値XNUMXでXNUMXつにマージします

4。 クリック OK、XNUMX番目のダイアログで、結果を配置するセルを選択します。
docは3つの列を交互の値XNUMXでXNUMXつにマージします

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


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

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

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

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

1.マージする列(XNUMXつ以上)を選択し、をクリックします クツール > Transform Range.
docは4つの列を交互の値XNUMXでXNUMXつにマージします

2。 の中に Transform Range ダイアログ、チェック Range to single column オプションをクリックして Ok.
docは5つの列を交互の値XNUMXでXNUMXつにマージします

3.セルを選択して、結果をポップダイアログに配置します。 クリック OK.
docは6つの列を交互の値XNUMXでXNUMXつにマージします

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

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It worked! Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations