セルを連結する必要がある場合があります。

たとえば、3つの列に情報があるが、それを組み合わせて各行の最初の列にしたい場合があります。次のマクロStuffTogetherは、まさにそれを実行します。選択したセルの範囲を調べてから、行の各セルから行の最初のセルにすべてを移動します。

Sub StuffTogether()

Dim FirstCol As Integer, FirstRow As Integer     Dim ColCount As Integer, RowCount As Integer     Dim ThisCol As Integer, ThisRow As Integer     Dim J As Integer, K As Integer     Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column     FirstRow = ActiveWindow.RangeSelection.Row     ColCount = ActiveWindow.Selection.Columns.Count     RowCount = ActiveWindow.Selection.Rows.Count

For J = 1 To RowCount         ThisRow = FirstRow + J - 1         MyText = ""

For K = 1 To ColCount             ThisCol = FirstCol + K - 1             MyText = MyText & Cells(ThisRow, ThisCol).Text & " "

Cells(ThisRow, ThisCol).Value = ""

Next K         MyText = Trim(MyText)

Cells(ThisRow, FirstCol).Value = MyText     Next J End Sub

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11944）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、 linkCombiningColumnsにあります。