Kijelölöd a B:C tartományban a területet, amit ki akarsz cserélin a fölötte, ill. alatta lévõ területtel.
A makrók a kijelölt adatokat ideiglenesen átteszik a H:I oszlopok azonos soraiba. Az eredeti területre áthúzzák a fölötte, ill. alatta lévõ adatokat, majd a megüresedett helyre bemásolják az ideiglenes terület adatait.
Sub Fel()
Dim sor As Integer, ter As Range, sorok As Integer, terM As String
Set ter = Selection
sor = Selection.Row
sorok = ter.Rows.Count
terM = "H" & sor & ":I" & sor + sorok - 1
Selection.Cut Destination:=Range(terM)
Range("B" & sor - sorok & ":C" & sor - 1).Cut Destination:=Range("B" & sor)
Range(terM).Cut Destination:=Range("B" & sor - sorok & ":C" & sor - 1)
End Sub
Sub Le()
Dim sor As Integer, ter As Range, sorok As Integer, terM As String
Set ter = Selection
sor = Selection.Row
sorok = ter.Rows.Count
terM = "H" & sor & ":I" & sor + sorok - 1
Selection.Cut Destination:=Range(terM)
Range("B" & sor + sorok & ":C" & sor + sorok + sorok - 1).Cut Destination:=Range("B" & sor)
Range(terM).Cut Destination:=Range("B" & sor + sorok & ":C" & sor + sorok + sorok - 1)
End Sub
Ha a H:I tartomány foglalt, a makróban írd át ezeket a betûket, de mindenképp egymást követõ 2 oszlop betûjelére.