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

たとえば、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トレーニングのソースです。

このヒント（2116）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkCombiningColumns。