Ci possono essere momenti in cui hai bisogno di concatenare le celle insieme.

Ad esempio, potresti avere informazioni in tre colonne, ma vuoi che siano combinate insieme nella prima colonna di ogni riga. La seguente macro, StuffTogether, farà proprio questo. Esamina l’intervallo di celle selezionato, quindi sposta tutto da ciascuna cella di una riga nella prima cella della riga.

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

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11944) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia di menu di Excel qui: Combining Columns.