انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل

با سلام خدمت کاربران عزیز آی تی سواد

فرض کنید می‌خواهید داده‌های خاصی را در محدوده A۱ : E۱ از Sheet۱ کپی کرده و آن را به سرعت به ردیف خالی بعدی در یک شیت دیگر قرار دهید به چه صورت می شود این کار را انجام داد ؟ این مقاله انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل را با VBA به شما معرفی خواهد کرد .

انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل با کد vba

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("لطفا محدوده را انتخاب کنید:", "آی تی سواد", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

Private Sub CommandButton1_Click()

Dim xScreenUpdating As Boolean

Dim xPasteSht As Worksheet

Dim xRg As Range

Dim xTxt As String

On Error Resume Next

xTxt = ActiveWindow.RangeSelection.Address

Set xRg = Application.InputBox("لطفا محدوده را انتخاب کنید:", "آی تی سواد", xTxt, , , , , 8)

If xRg Is Nothing Then Exit Sub

Set xPasteSht = Worksheets("Sheet2")

xScreenUpdating = Application.ScreenUpdating

Application.ScreenUpdating = False

xRg.Copy

xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Application.ScreenUpdating = xScreenUpdating

End Sub

نکته : در کد ، Sheet2 ، کاربرگ مقصد داده‌های کپی شده است . شما می‌توانید آن را براساس نیاز خود تغییر دهید .

۳. کلید F5 را فشار دهید تا کد را اجرا کنید ، در پنجره باز شده ، لطفا ً محدوده‌ای را که می‌خواهید به ردیف خالی بعدی Sheet۲ کپی کنید انتخاب کنید ، و سپس روی دکمه OK کلیک کنید .

سپس داده‌های کپی شده از Sheet۱ در ردیف خالی بعدی Sheet2 به همان شکل زیر که در عکس زیر نشان‌داده شده‌است ، چسبانده شده‌است :

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

39 دیدگاه دربارهٔ «انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل;

mhmd

بهمن 30, 1399 در 8:14 بعد از ظهر

سلام اگر بخوام داده های یک جدول چند سطر و ستونی را انتقال بدم به یک ستون یا سطر از چه فرمولی باید استفاده بکنم ممنون میشم جواب بدین
پاسخ
- حامد محمودخانی
  
  اسفند 1, 1399 در 1:03 قبل از ظهر
  
  سلام
  آموزش زیر رو ببینید
  https://itsavad.ir/merge-multiple-columns-into-one-excel-column/
  پاسخ
سید مجید سیدی مراد

بهمن 9, 1400 در 10:06 قبل از ظهر

سلام … امکان داره وی بی ای یه سربرگ جدید درست کنه .. تا من یه ستون های خاصیو کپی و پیست اسپیشیال کنم … نمی خوام فرمول هاش تو سربرگ جدید هم بیاد … فقط Value هاشو میخوام
پاسخ
- حامد محمودخانی
  
  بهمن 9, 1400 در 4:45 بعد از ظهر
  
  سلام
  هرکاری که بصورت دستی می توانید انجام بدهید ،توسط vba قابل انجام هست
  پاسخ
محمد

شهریور 28, 1401 در 12:28 بعد از ظهر

سلام وقتتون بخیر برای اجرای فرمان فوق هر زمان که خواستیم اجرا کنیم میبایست بریم داخل Microsoft Visual Basic for …و f5 رو بزنیم تا اجرا بشه ؟
امکان نیست کلیدی مثل button ایجاد کنیم تا با زدن آن جدول انتخاب محدوده اجرا و کپی شود؟
از راهنماییتون سپاس گذارم
پاسخ
- حامد محمودخانی
  
  شهریور 29, 1401 در 4:46 بعد از ظهر
  
  سلام
  در لینک زیر اموزش مدنظرتان هست
  https://www.aparat.com/v/4PsGE/%D8%B3%D8%A7%D8%AE%D8%AA_%D8%AF%DA%A9%D9%85%D9%87_%D8%AF%D8%B3%D8%AA%D8%B1%D8%B3%DB%8C_%D8%AF%D8%B1_%D8%A7%DA%A9%D8%B3%D9%84
  پاسخ
مجتبی مومنی

شهریور 31, 1401 در 7:12 بعد از ظهر

امکان ایجاد کلید میانبر در شیت مورد نظر هست تا با زدن کلیک کردن انتقال داده ها امکان پذیر باشد
پاسخ
A

اردیبهشت 30, 1402 در 12:54 بعد از ظهر

سلام خدمت همه عزیزان نمیشه بدون زدن F5 یا طراحی دکمه یا هر روش دیگه ای این انتقال اطلاعات به صورت خودکار و در لحظه به محض وارد کردن داده در Sheet1 در Sheet2 بصورت خودکار منتقل شود ؟؟

خیلی خیلی خیلی ممنون از شما
اگر جواب بدهید خیلی لطف می کنید
پاسخ
- حامد محمودخانی
  
  اردیبهشت 30, 1402 در 5:12 بعد از ظهر
  
  سلام
  می توانید در رویداد change شیت کد را وارد کنید تا هروقت تغییری در اون شیت رخداد ،این ماکرو اجرا شود
  پاسخ

با سلام خدمت کاربران عزیز آی تی سواد

انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل با کد vba

ممنون از همراهی شما کاربران عزیز آی تی سواد

39 دیدگاه دربارهٔ «انتقال داده ها به اولین ردیف خالی شیت دیگر در اکسل;

دیدگاهتان را بنویسید لغو پاسخ