جمع چند شیت با ردیف های متفاوت

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • علیرضا آرین
    • 2019/06/07
    • 1
    #1

    [حل شده] جمع چند شیت با ردیف های متفاوت

    سلام وقت بخیر
    من میخواهم 26 شیت اکسل را باهم جمع کنم به صورتی که در هر شیت ستون ها یکسان هستند اما ردیف ها متفاوت به فرض مثال ccu در شیت اول در ردیف 54 مباشد اما در شیت 16 در ردیف 48 میباشد باید از چه فرمولی استفاده کنم برای جمع همه شیت ها باهم به طوری که در هر شیت یک اطلاعات یکسان جمع شود؟
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • saed.rasa

      • 2014/11/02
      • 1054
      #2
      سلام

      امتحان کنید لطفا

      Power Query
      مناسب است برای این کار

      از تب Data > Consolidate استفاده شده است
      فایل های پیوست شده
      [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]

        کامنت

        • M_ExceL

          • 2018/04/23
          • 677
          #3
          نوشته اصلی توسط علیرضا آرین
          سلام وقت بخیر
          من میخواهم 26 شیت اکسل را باهم جمع کنم به صورتی که در هر شیت ستون ها یکسان هستند اما ردیف ها متفاوت به فرض مثال ccu در شیت اول در ردیف 54 مباشد اما در شیت 16 در ردیف 48 میباشد باید از چه فرمولی استفاده کنم برای جمع همه شیت ها باهم به طوری که در هر شیت یک اطلاعات یکسان جمع شود؟
          سلام،
          کد:
          Sub samall()
Application.ScreenUpdating = False
    Sheets("sumall").Range("d2:p92").ClearContents
    lr = Sheets("sumall").Cells(Rows.Count, 1).End(3).Row - 1
        For sht = 1 To Sheets.Count - 1
            For sm = 2 To lr
                rsht = Sheets(sht).Cells(Rows.Count, 1).End(3).Row - 1
                    For r = 2 To rsht
                        If Sheets("sumall").Cells(sm, 1) = Sheets(sht).Cells(r, 1) Then
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 3)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 3) = Sheets("sumall").Cells(sm, 1).Offset(0, 3) + Sheets(sht).Cells(r, 1).Offset(0, 3)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 4)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 4) = Sheets("sumall").Cells(sm, 1).Offset(0, 4) + Sheets(sht).Cells(r, 1).Offset(0, 4)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 5)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 5) = Sheets("sumall").Cells(sm, 1).Offset(0, 5) + Sheets(sht).Cells(r, 1).Offset(0, 5)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 6)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 6) = Sheets("sumall").Cells(sm, 1).Offset(0, 6) + Sheets(sht).Cells(r, 1).Offset(0, 6)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 7)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 7) = Sheets("sumall").Cells(sm, 1).Offset(0, 7) + Sheets(sht).Cells(r, 1).Offset(0, 7)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 8)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 8) = Sheets("sumall").Cells(sm, 1).Offset(0, 8) + Sheets(sht).Cells(r, 1).Offset(0, 8)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 9)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 9) = Sheets("sumall").Cells(sm, 1).Offset(0, 9) + Sheets(sht).Cells(r, 1).Offset(0, 9)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 10)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 10) = Sheets("sumall").Cells(sm, 1).Offset(0, 10) + Sheets(sht).Cells(r, 1).Offset(0, 10)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 11)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 11) = Sheets("sumall").Cells(sm, 1).Offset(0, 11) + Sheets(sht).Cells(r, 1).Offset(0, 11)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 12)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 12) = Sheets("sumall").Cells(sm, 1).Offset(0, 12) + Sheets(sht).Cells(r, 1).Offset(0, 12)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 13)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 13) = Sheets("sumall").Cells(sm, 1).Offset(0, 13) + Sheets(sht).Cells(r, 1).Offset(0, 13)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 14)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 14) = Sheets("sumall").Cells(sm, 1).Offset(0, 14) + Sheets(sht).Cells(r, 1).Offset(0, 14)
                            If IsNumeric(Sheets(sht).Cells(r, 1).Offset(0, 15)) Then Sheets("sumall").Cells(sm, 1).Offset(0, 15) = Sheets("sumall").Cells(sm, 1).Offset(0, 15) + Sheets(sht).Cells(r, 1).Offset(0, 15)
                        End If
                Next r
            Next sm
        Next sht
Application.ScreenUpdating = True
End Sub
          فایل های پیوست شده
          Last edited by M_ExceL; 2019/06/10, 21:32.
          [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
          [/CENTER]

            کامنت

            قبلی template بعدی
            چند لحظه..