جابجایی محتوای دو ستون باهمدیگر

[ali719]

سلام
توی فایل پیوست من میخام محتوای دو سلول و را با همدیگر جابجا کنم (یعنی فصل دوم بره جای فصل اول و برعکس) برای اینکار باید چکار کنم

[delpiero]

سلام
محتویات فایلت خالیه

[ali719]

سلام
منظورم اینه که هر چیزیکه در دو سلول وجود داره با هم عوض بشن

[misammisam]

تو همون ستونها با توابع امکان چنین کاری وجود نداره ، مگر اینکه تو یه شیت جدا یا 4 تا ستون دیگه از همون شیت ، مثل همون جدولو درست کنی و کل جدول اولو لینک کنی به جدول دومی و بلعکس .

ولی با vba میشه ، این کد میتونه داده های داخل جداولو جابجا کنه :

Private Sub CommandButton1_Click()
lastrow = Range("b:d").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lastrow
a = Range("a" & i).Value
b = Range("b" & i).Value
Range("a" & i).Value = Range("c" & i).Value
Range("b" & i).Value = Range("d" & i).Value
Range("c" & i).Value = a
Range("d" & i).Value = b
Next
End Sub