Home / User Contributed Macros / Merge Content

Merge Content

The following macro merges contents in the selection.
  1. Public Sub mergeContent()

  3.     Dim rowNo, colNo, endColNo as Integer
  4.     Dim mergedValue as String
  5.  
  6.     For each tempRow in Selection.rows
  7.  
  8.         rowNo = tempRow.row
  9.         colNo = tempRow.cells(1).Column
  10.         endColNo = colNo + tempRow.cells.count
  11.         mergedValue = ""
  12.  
  13.         For i = colNo to endColNo

  15.             mergedValue = mergedValue & cells(rowNo, i).value
  16.  
  17.             If i = endColNo Then
  18.                 cells(rowNo, colNo).value = mergedValue
  19.             End If
  20.  
  21.         next i
  22.  
  23.         tempRow.merge
  24.  
  25.     Next tempRow

  27. End Sub


    		 RSS of this page