Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Excel - Łącznie i środkowanie wierszy z różnych kolumn

viteq_13 06 Sie 2015 21:53 465 2
  • #1 06 Sie 2015 21:53
    viteq_13
    Poziom 1  

    Cześć,
    Jako laik w kwestii VBA muszę się zwrócić z prośbą o pomoc.

    Chcę napisać makro, które będzie łączyć komórki z identycznymi wartościami w sąsiadujących ze sobą kolumnach, a następnie środkować ich zawartość.

    O ile coś podobnego udało mi się napisać dla łączenia komórek w tej samej kolumnie (czyli z różnych wierszy), to nie wiem jak się za to zabrać w przypadku różnych kolumn.

    Poniżej kod. Ma ktoś pomysł jak się za to zabrać?

    Code:
    Sub MergeCells()
    

        Application.ScreenUpdating = False

        Application.DisplayAlerts = False

     

        Dim rngMerge As Range, cell As Range

        Set rngMerge = Range("Q3:Q150,K3:K150,A3:A150") '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


    Z góry dzięki za pomoc

    0 2
  • #2 07 Sie 2015 06:39
    PRL
    Poziom 33  

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0
  • #3 07 Sie 2015 08:46
    JRV
    Specjalista - VBA, Excel

    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

    Trochę nielogiczne. Nigdy nie zrobiłbym tak, aby zakończyć petli

    0