複数の列を1つの列に結合する必要があり、手がかりがなかった場合は、この記事全体が役に立ちます。この記事では、vbaコードを使用して複数の列を1つの列に結合する方法を学習します。

下のスナップショットから：-

image 1

以下はrequire出力のスナップショットです：-

image 2

以下の手順に従う必要があります：

[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します

image 3

標準モジュールに次のコードを入力します

Sub MultipleColumns2SingleColumn（）

Const shName1 As String = “Sheet1” ‘ここでシート名を変更

Const shName2 As String = “Sheet2”

Dim arr、arrNames

ワークシート（shName1）を使用

arrNames = .Range（ “F1″、。Cells（1、Columns.Count）.End（xlToLeft））

For i = 2 To .Cells（Rows.Count、1）.End（xlUp）.Row

arr = .Cells（i、1）.Resize（、4）

ワークシート（shName2）を使用

With .Cells（Rows.Count、1）.End（xlUp）

.Offset（1）.Resize（UBound（arrNames、2）、4）= arr

終了

終了

次へ

終了

サブの終了

Offset（1、5）.Resize（UBound（arrNames、2））= Application.Transpose（arrNames）

image 4

マクロを実行すると、マクロは、データを複数の列から単一の列に転送します。

このようにして、複数の列のデータを1つの列に組み合わせることができます。

image 5