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

[elgehl]

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

Α στήλη Β στήλη Γ στήλη Δ στήλη
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

.

[ChrisGT7]

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

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

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

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

[elgehl]

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