Merge Cells Automatically using VBA

[Sefty]

Hello

I'm looking for something to automatically merge text of the text in a cell. This can either be immediately or by using VBA and running a macro to do all of them at once. Example for data merge data football, and I'm looking to merge by using VBA to data volly, basketball, and tenis.
Thanks....

 

[My Aswer Is This]

Not sure what this means:
merge text of the text in a cell.

Merge what text into what cell?

Show us a example of what you have now and then show us what you want it to look out after the merge.

 

[Sefty]

it looks like this before and after the results, merge cells b8-b11, b12-b16 in the before column so that it can be automated with VBA macros
Thanks...

Not sure what this means:
merge text of the text in a cell.

Merge what text into what cell?

Show us a example of what you have now and then show us what you want it to look out after the merge.

 

[Peter_SSs]

Try this with a copy of your data

Sub MergeSports()
  Dim rA As Range
  
  For Each rA In Range("B3:B" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
    With rA.Offset(-1).Resize(rA.Rows.Count + 1)
      .MergeCells = True
      .VerticalAlignment = xlTop
    End With
  Next rA
End Sub

 

[Sefty]

Try this with a copy of your data

Sub MergeSports()
  Dim rA As Range
 
  For Each rA In Range("B3:B" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
    With rA.Offset(-1).Resize(rA.Rows.Count + 1)
      .MergeCells = True
      .VerticalAlignment = xlTop
    End With
  Next rA
End Sub

Thank you so much, code successful...

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.

 

[Sefty]

Hello,
Sorry, I need to help, I found problem to merge cells using VBA for other case. if the data is like this why syntax eror.
Thanks....

Sub MergeSports()
  Dim rA As Range
  
  For Each rA In Range("A2:A" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Areas
    With rA.Offset(-1).Resize(rA.Rows.Count + 1)
      .MergeCells = True
      .VerticalAlignment = xlTop
    End With
  Next rA
End Sub

 

[Peter_SSs]

why syntax eror.

Where is the syntax error?

Also, if you want us to test code with a particular data layout, please give it to us in a form that we can copy: XL2BB

 

[Sefty]

Where is the syntax error?

Also, if you want us to test code with a particular data layout, please give it to us in a form that we can copy: XL2BB

as above, the error statement, and the following data
Thank you for help....

Book3
	A	B	C	D
1	Category	Time	Country
2	AA	05.00	Amerika
3			Indonesia
4			Malaysia
5		06.00	Singapura
6			Vietnam
7			Cina
8	BB	05.00	Amerika
9			Indonesia
10			Malaysia
11		06.00	Singapura
12			Vietnam
13	CC	04.00	Cina
14	DD	10.00	Singapura
15			Vietnam
16			Cina
17
Sheet1

 

[Peter_SSs]

as above, the error statement

For syntax errors the code usually turns red and the yellow line with arrow will not progress to the line in question like you have shown.

Instead of a Syntax error, are you sure that you are not getting an error like this instead?

From your sample, it appears that many of the "blank" cells are not blank (empty) but contain space characters. Could that be your problem?