نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: ادغام سطرها

  1. #1

    آخرین بازدید
    2018/09/11
    تاریخ عضویت
    November 2017
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ادغام سطرها

    با سلام و خسته نباشید محضر دوستان .من می خواهم در یک فایل اکسل که یک ستون با 640 سطر می باشد هر 8 سطر را باهم ادغام کنم و در یک سطر قرار دهیم یعنی در نهایت من 80 سطر داشته باشم که در هر سطر 8 سطر با هم ادغام شده اند.طریقه کار را کسی میداند که مرا راهنمایی کند؟ با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    فایل پیوست را بررسی بفرمایید

    کد PHP:
    =if(mod(row(),8)=0,concatenate(a1,a2,a3,a4,a5,a6,a7,a8),""
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx Book1.xlsx اطلاعات (9.6 کیلو بایت, 9 نمایش)

  4. سپاس ها (3)


  5. #3
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    اگر منظورتون اینه که یه ستون بدون اطلاعات دارید و می خواید هر هشت تا سطر یک سطر بشن از کد زیر استفاده کنید

    کد PHP:
    Sub MergeRows()

        
    Dim i


        
    For 1 To 640 Step 8
                Range
    (Cells(i1), Cells(71)).Merge
        Next i
    End Sub 


  6. سپاس ها (3)


  7. #4

    آخرین بازدید
    2018/09/11
    تاریخ عضویت
    November 2017
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    فایل پیوست را بررسی بفرمایید

    کد PHP:
    =if(mod(row(),8)=0,concatenate(a1,a2,a3,a4,a5,a6,a7,a8),""
    من می خواهم این فایل 80 سطر داشته باشد
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: txt 80.txt اطلاعات (13.7 کیلو بایت, 4 نمایش)

  8. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    ماکرو فایل پیوست را اجرا بفرمایید

    کد PHP:
    Sub test()

    z1 Cells(Rows.Count"A").End(xlUp).Row

    2

    1

    For 1 To z1


    Cells
    (jk) = Range("A" i)

    1

    If 9 Then

    2

    1

    End 
    If

    Next


    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book2.xls اطلاعات (48.0 کیلو بایت, 7 نمایش)

  9. سپاس ها (2)


  10. #6

    آخرین بازدید
    2018/09/11
    تاریخ عضویت
    November 2017
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ممنون از راهنمائی تون .درست شد


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد