概要
Microsoft Excel では、マクロを使用して 2 つの隣接する列にデータを連結し、データを含む列の右側に列の結果を表示できます。 この記事には、これを実現するための Microsoft Visual Basic for Applications (VBA) マクロ (Sub プロシージャ) のサンプルが含まれています。
詳細情報
Microsoft では、明示または黙示を問わず、保証なしで、図のみのプログラミング例を提供しています。 これには、特定の目的に対する商品性または適合性に関する黙示の保証が含まれますが、これに限定されません。 この記事では、デモンストレーションされているプログラミング言語と、プロシージャの作成とデバッグに使用されるツールについて理解していることを前提としています。 Microsoft サポート エンジニアは、特定の手順の機能の説明に役立ちます。 ただし、これらの例を変更して、特定の要件を満たすために追加の機能を提供したり、プロシージャを構築したりしません。
サンプル Visual Basic for Applications (VBA) マクロ
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
注: ステートメント ActiveCell.Offset(0, 1)。FormulaR1C1 は、ステートメント ActiveCell.Offset(0, 1) に置き換えることができます。式。 (数式ではなく) テキストと数値のみを使用している場合は、同じ成功を収めて使用できます。 最初のステートメントの末尾で使用される R1C1 は、行 1 の列 1 を参照し、ヘルプの例で使用されるフォームです。
Microsoft Office Excel 2007 でマクロを使用する方法
-
データを含むブックを開きます。
-
Alt キーを押しながら F11 キーを押して、Visual Basic Editor を起動します。
-
[ 挿入 ] メニューの [ モジュール ] をクリックしてモジュールを挿入します。 モジュールのコード ウィンドウにマクロを入力します。
-
[ ファイル ] メニューの [閉じる] をクリック し、Microsoft Excel に戻ります。
-
連結するデータを含むワークシートを選択します。
-
連結するデータの右側の列の上部のセルをクリックします。 たとえば、セル A1:A100 と B1:B100 にデータが含まれている場合は、セル B1 をクリックします。
-
[ 開発者 ] タブをクリックします。 [ 開発者 ] タブが表示されない場合は、次の手順に従います。
-
Microsoft Office ボタンをクリックし、[Excel のオプション] をクリックします。
-
[ 人気] をクリックします。
-
[リボン チェック] ボックスの [開発者の表示] タブをクリックして選択します。
-
[ OK] を クリックして [Excel のオプション] ダイアログ ボックスを閉じます。
-
-
[コード] グループで [マクロ] をクリックします。
-
ConcatColumns マクロを選択し、[ 実行] をクリックします。
Microsoft Office Excel 2003 および以前のバージョンの Excel でマクロを使用する方法
-
データを含むブックを開きます。
-
Alt キーを押しながら F11 キーを押して、Visual Basic Editor を起動します。
-
[ 挿入 ] メニューの [ モジュール ] をクリックしてモジュールを挿入します。 モジュールのコード ウィンドウにマクロを入力します。
-
[ ファイル ] メニューの [閉じる] をクリック し、Microsoft Excel に戻ります。
-
連結するデータを含むワークシートを選択します。
-
連結するデータの右側の列の上部のセルをクリックします。 たとえば、セル A1:A100 と B1:B100 にデータが含まれている場合は、セル B1 をクリックします。
-
[ ツール ] メニューの [ マクロ] をポイントし、[ マクロ] をクリックします。 ConcatColumns マクロを選択し、[ 実行] をクリックします。