با سلام و احترام. من سوالمو در ضمیمه گذاشتم ممنون میشم اگه راهنمایی کنید.
-
-
با سلام
این کد را امتحان کنید
کد PHP:Sub CopyData()
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row + 1
Range("A1:E1").Copy
Range("A" & lr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER] -
سلام
یک راه دیگر:
سطر اول را می توانید پاک کنید یعنی سطر اول برابر است با عنوان جدول
می توانید داده را تبدیل به جدول کنید یا بدون جدول
در سلول a1 یا داخل داده جدول قرار بگیرید
با کلید های Alt + D + O می توانید از فرم آماده اکسل برای ورود داده ها استفاده کنید[FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
[/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
[/FONT][/CENTER]
[/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
[/FONT][/CENTER]کامنت
کامنت