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

[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