Excel – Combine multiple columns into one column

by

Try this. Click anywhere in your range of data and then use this macro:

Sub CombineColumns()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1

For iCol = 2 To rng.Columns.Count
    Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
    ActiveSheet.Paste Destination:=Cells(lastCell, 1)
    lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub

More Related Contents:

  1. Detect merged cells in VBA Excel with MergeArea
  2. Matching similar but not exact text strings in Excel VBA projects
  3. delete Autofilter Field resullt using the header Name
  4. VBA comma separated cells, needt last entry only
  5. Somehow it’s not copying [closed]
  6. Excel-VBA – Insert new first column in datafield array without loops or API calls
  7. Protecting cells in Excel but allow these to be modified by VBA script
  8. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  9. Running an Excel macro via Python?
  10. How to add a named sheet at the end of all Excel sheets?
  11. VBA general way for pulling data out of SAP [closed]
  12. How do I name a spreadsheet automatically, by referencing two cells?
  13. Excel VBA Delete Rows
  14. Delete Row based on Search Key VBA
  15. How to add a button programmatically in VBA next to some sheet cell data?
  16. Assign keyboard shortcut to run procedure
  17. How can VBA connect to MySQL database in Excel?
  18. Round function in Excel, worksheet function vs VBA
  19. How do I get regex support in Excel via a function, or custom function?
  20. return csv file as recordset
  21. Getting Excel to refresh data on sheet from within VBA
  22. Why am I having issues assigning a Range to an Array of Variants
  23. Copy a selected range to another worksheet
  24. Excel macro – paste only non empty cells from one sheet to another
  25. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  26. Create Chart from Array data and not range
  27. Calling regasm without administrative rights for COM interop in Excel VBA
  28. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  29. Call a Unix Script from Excel Vba
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment