Search :
28, July 2017
Merge Cell Dengan Nilai Yang Sama

Untuk menyatukan cell dengan Value yang sama menggunakan Macro ketik kodenya sebagai berikut

Option Explicit

Private Sub MergeCells()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim rngMerge As Range, cell As Range
    Set rngMerge = Range("AE6:AE210") 'Tentukan Batas yang akan dimerge

MergeAgain:
    For Each cell In rngMerge
        If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then
            Range(cell, cell.Offset(1, 0)).Merge
            GoTo MergeAgain
        End If
    Next

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Copyright © 2007-2018 By ciremai.com. All Right Reserved
Gunung Ciremai adalah gunung berapi yang termasuk dalam wilayah Kabupaten Cirebon, Kabupaten Kuningan dan Kabupaten Majalengka, Provinsi Jawa Barat dengan ketinggian 3.078 m di atas permukaan laut. Gunung ini merupakan gunung tertinggi di Jawa Barat.