Quickly Merge Cells with Same Values in Excel|Merge formatting|VBA code to|#AskmeAnythings|Live|

Quickly Merge Cells with Same Values in Excel|Merge formatting|VBA code to|#AskmeAnythings|Live|
Code is given below.
Option Explicit

Sub Merge_Same_Cells()
'Excel My Life
Application.DisplayAlerts = False

Dim rng As Range

MergeCells:

For Each rng In Selection

If rng.Value = rng.Offset(1, 0).Value And rng.Value "" Then
Range(rng, rng.Offset(1, 0)).Merge
Range(rng, rng.Offset(1, 0)).HorizontalAlignment = xlCenter
Range(rng, rng.Offset(1, 0)).VerticalAlignment = xlCenter
GoTo MergeCells
End If
Next

End Sub

Quickly Merge Cells with Same Values in Excel|Merge formatting|VBA code to|

advance excel,vba macro,bi dashboard,excel dashboard,personal macro in excel,vba macro in excel,excel tips and tricks with pk,advanced vba course,vba tutorial for beginners,pk’s utility tool,marge same cells using vba,label in vba module,for loop in vba,for each loop in vba,for each rng in selection,merge range using vba,horizontal alignment using vba,vertical alignment using vba

how to merge cells automatically in excel

#Excelmylife #Exceltotally #Exceltipstricks

Social Media Handles:

Thanks for watching
Don't forget to - LIKE | SHARE | COMMENT | SUBSCRIBE

WATCH our OTHER USEFUL VIDEO
======================================
Tally Customization without TDL special Videos playlist:

1. for complete GST tutorial in Tally ERP9 in Hindi

2. For complete Tally ERP 9 tutorial in Hindi

3. for complete CorelDRAW tutorial in Hindi

4. For Photoshop cs2, cs3, cs4, cs5 cs6, & cc tutorial in Hindi

5. complete Pagemaker tutorial in hindi

6. complere MS-Excel 2010 tutorial in hindi

7. complete MS-Word 2010 tutorial in Hindi

8. SSC exam preparation video

9. MS-Access 2010 tutorial

10. Windows 7 tips and tricks and secrets

11. MS publisher tutorial in Hindi

12. Youtube video editing tutorial

[ofcooooors]

Sub Merge_Same_Cells()
'Excel My Life
Application.DisplayAlerts = False

Dim rng As Range

MergeCells:

For Each rng In Selection

If rng.Value = rng.Offset(1, 0).Value And rng.Value <> "" Then
Range(rng, rng.Offset(1, 0)).Merge
Range(rng, rng.Offset(1, 0)).HorizontalAlignment = xlCenter
Range(rng, rng.Offset(1, 0)).VerticalAlignment = xlCenter
GoTo MergeCells
End If
Next


End Sub

[sameerahmad-gjgm]

Sir ek help chaiya thi for eg meria pass ek data h jais Mai name, email, subject, body, status lika hua h.ab muja aise coding karni h jisa Mai send ka ek option Mai click Kari tho ya sab data ek row Mai h jaaya..

[ziyadawood]

Thank you dear that was helpful god bless you

[naruer]

When we create pivot on merged cell it picks up all values from merged cells, can you suggest a fix for this?

[bhavyanaidu]

How to add the amount(B column) for particular merged range of each supplier (A column) and make it in one row entry??

[kjibinmohammad]

awesome bro but it was giving error when copied from open explicit

[ajaykushwaha-jemw]

getting compile error at this line of code.
If rng.Value = rng.Offset(1, 0).Value And rng.Value "" Then

[tapan]

lekin mere pass two line hai usse merge kr rha hu to vo error aya jisme apne ok kiya lekin apke pass same hai agar diff ho to

[anoopbarua]

Hello Sir, Sir please share
the utility of video uploaded on April 26, 2020 "How to import sale, pur, journal, multirate voucher"

[himanshumaurya]

Plz provide the code addition in of all merge cell and the additional in front of merge cell

[screenshots]

Hi.. Sir ji,
How to merge same if it is in numbers..

[ankitsoni]

इनका जो ammount है उनका total कैसे होगा merge cell में