Posted By

mprabhuram on 02/12/10


Tagged

ExcelMacro


Versions (?)

Merge cells in multiple selected areas Column by Column


 / Published in: Visual Basic
 

URL: http://www.mvps.org/dmcritchie/excel/merge.htm

  1. Sub MergeCxC()
  2. '-- Merge cells in multiple selected areas Column by Column ---
  3. ' limited to the usedrange (Ctrl+End)
  4. ' D.McRitchie, 2002-05-31 in merge.htm
  5. Dim rng As Range
  6. Dim rw As Range, ix As Long
  7. Set rng = Intersect(Selection, ActiveSheet.UsedRange)
  8. If rng Is Nothing Then
  9. MsgBox "nothing in usedrange to be merged"
  10. GoTo done
  11. End If
  12. Dim i As Long, j As Long
  13. For i = 1 To Selection.Areas.Count
  14. For j = 1 To Selection.Areas(i).Columns.Count
  15. Application.DisplayAlerts = False
  16. Selection.Areas(i).Columns(j).MergeCells = True
  17. Application.DisplayAlerts = True
  18. Next
  19. Next
  20. done:
  21. End Sub

Report this snippet  

You need to login to post a comment.