Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, and 2016. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Combining Columns.
by Allen Wyatt
(last updated May 14, 2016)
There may be times when you have a need to concatenate cells together. For instance, you may have information in three columns, but you want it combined together into the first column of each row. The following macro, StuffTogether, will do just that. It examines the range of cells you select, and then moves everything from each cell in a row into the first cell of the row.
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 is your source for cost-effective Microsoft Excel training. This tip (11944) applies to Microsoft Excel 2007, 2010, 2013, and 2016. You can find a version of this tip for the older menu interface of Excel here: Combining Columns.
Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling today!
The fill tool can be a great help in copying patterns of information in a column. It isn't so great, though, when the ...Discover More
Excel provides keyboard shortcuts for a variety of purposes. This tip examines two such shortcuts, designed to allow ...Discover More
You can delete cells from a worksheet, and Excel will move the remaining cells either to the left or upwards. Deletions, ...Discover More
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.