وارد کردن مقدار از سلول دیگر به اخرین ستون خالی

**zare_a87** · 2016/04/02

با سلام
چجوری می تونم اطلاعات از یک سلول در شیت دیگر به اخرین ستون خالی در شیت جاری وارد کنم
با سپاس

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**Amir Ghasemiyan** · 2016/04/02

سلام
چیزی که شما لازم دارین یک کد vba هست که این کار رو براتون انجام بده
از این کد میتونین کمک بگیرین

کد:

Sub AddToLastRow() Lrow = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row + 1 If Lrow = 2 And Cells(1, 1) = "" Then Lrow = 1 Sheet2.Range("A" & Lrow) = Sheet1.Range("A1") End Sub

سوالتون به تالار ویژوال بیسیک منتقل شد

**zare_a87** · 2016/04/02

می خوام بصورت اتومات اینکار انجام بشه

**zare_a87** · 2016/04/02

در ضمن اخرین سطر پر شده بایست از شیت اول گرفته و در شیت دوم درج شود.

**zare_a87** · 2016/04/02

ببینید از سلول a1 شیت اول به سلول a1 شیت دوم وسلول a2 شیت اول به سلول a2 شیت دوم و الی اخر ... داده منتقل کنه
منظور از اتومات هم اینه که وقتی در شیت اول سلول a1 داده وارد کردیم در شیت دوم سلول a1 بشینه و الی اخر