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

[علیرضا آرین]

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

[saed.rasa]

سلام

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

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

از تب Data > Consolidate استفاده شده است

[M_ExceL]

سلام وقت بخیر
من میخواهم 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