Forum - VBA Ταίριασμα αριθμών δύο στηλών

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Ταίριασμα αριθμών δύο στηλών (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/6483-tairiasma-arithmon-dio-stilon.html)

Ταίριασμα αριθμών δύο στηλών

έχω τα παρακάτω δεδομένα

Α στήλη Β στήλη Γ στήλη Δ στήλη
101_____103____302____251
102_____105____312____452
103_____108____422____501
104
105
106
108

Θα ήθελα (αν γίνεται ) με την χρήση VBA το 103 της στήλης Β μαζί με τα
νούμερα των στηλών Γ και Δ
"κατέβει" δίπλα στο 103 της στήλης Α ,
το 105 κλπ της Β δίπλα στο 105 της Α κοκ.

δηλαδή να γίνει το
101
102
103_____103____302____251
104
105_____105____312____452
106
108_____108____422____501

.

Καλησπέρα και Χριστός Ανέστη Γιώργο,

Δοκίμασε την παρακάτω μακροεντολή αν σε καλύπτει:

Κώδικας:

Option Explicit
 

Sub TAIRIASMA()

    Dim I As Long, R As Long

    R = Range("A" & Rows.Count).End(xlUp).Row

    For I = 1 To R

        If Range("A" & I).Value <> Range("B" & I).Value Then _

            Range("B" & I & ":D" & I).Insert Shift:=xlDown

    Next

End Sub

Υ.Γ. Πολύχρονος και ευτυχισμένος για χθες! :dft009:

Ευχαριστώ και Ευχαριστίες για την εντολή