جابجایی ستونها به صورت معکوس

[niksirat2030]

سلام

فرض کنیم مثلا در ستونهای a, b, c, d, e داده هایی داریم. چطور میشه ستونها رو به طور معکوس جابجا کرد؟ یعنی ترتیبشون از آخر به اول بشه.

یعنی محتویات a و e جابجا بشه
محتویات b و d هم جابجا بشه

[amir_ts]

با سلام
نتیجه این کد ها رو ملاحظه کنید.

 Sub test()Dim s1, s2, s3, s4, s5 As Integer

s1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
s2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
s3 = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row
s4 = Sheet1.Cells(Sheet1.Rows.Count, "D").End(xlUp).Row
s5 = Sheet1.Cells(Sheet1.Rows.Count, "E").End(xlUp).Row


Range("A1:e" & s5).Cut Destination:=Range("f1")
Range("j1:j" & Sheet1.Cells(Sheet1.Rows.Count, "J").End(xlUp).Row).Cut Destination:=Range("a1")
Range("i1:i" & Sheet1.Cells(Sheet1.Rows.Count, "i").End(xlUp).Row).Cut Destination:=Range("b1")
Range("h1:h" & Sheet1.Cells(Sheet1.Rows.Count, "h").End(xlUp).Row).Cut Destination:=Range("c1")
Range("g1:g" & Sheet1.Cells(Sheet1.Rows.Count, "g").End(xlUp).Row).Cut Destination:=Range("d1")
Range("f1:f" & Sheet1.Cells(Sheet1.Rows.Count, "f").End(xlUp).Row).Cut Destination:=Range("e1")
End Sub