Comment fusionner des cellules basées sur des valeurs similaires - Excel 2010

J'ai un problème de fusion de cellules dans excel basé sur des valeurs d'une colonne - je tiens à garder les autres colonnes de données, nous allons voir quelques captures d'écran et ça sera plus clair:
Comment fusionner des cellules basées sur des valeurs similaires - Excel 2010

Ce qui précède est l'état initial des Données,
ce que je veux réaliser est: est-ce

Comment fusionner des cellules basées sur des valeurs similaires - Excel 2010

Je suis sûr qu'il y est une façon de le faire avec VB ou formules - j'ai besoin de la manière la plus simple possible car c'est pour un client, et il besoin d'être facile.

Je vous remercie tous à l'avance.

InformationsquelleAutor Itai Malek | 2013-07-14
  1. 6
    Option Explicit

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

    Dim rngMerge As Range, cell As Range
    Set rngMerge = Range("A1:A100") 'Set the range limits here

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

    Vous pouvez coder en dur des limites de la portée (c'est à dire la dernière ligne de la Colonne A à vérifier), ont l'entrée de l'utilisateur à chaque fois, ou par programmation de trouver la dernière ligne de la plage . De toute façon, cela devrait vous obtenir a commencé.

    Par la manière, vous pouvez trouver la dernière ligne de la colonne A avec les éléments suivants:

    Dim i As Integer
    i = Range("A1").End(xlDown).Row
    Set rngMerge = Range("A1:A" & i)
    • Quelle est la meilleure façon de prolonger cette macro à exécuter sur toutes les colonnes?
    InformationsquelleAutor rwisch45