پرسش جمع ستون در چند شیت

[sma4727134]

با سلام یک ورک بوک دارم که از تعداد زیاد شیت تشکیل شده است و هر شیت دارای ردیف های متغیر می باشد دستوری می خوام که بر فرض مثال در هر شیت جمع ردیف های ستون f راجمع زده و دریک شیت لیست نماید

[iranweld]

با سلام

این کد را تست کنید

Sub test()

k = 2

For Each Sheet In Worksheets

If Sheet.Name <> "data" Then

Sheet.Select

z1 = Sheet.Cells(Sheet.Rows.Count, "f").End(xlUp).Row

Sum = Application.Sum(Range("f2:f" & z1))


Sheets("data").Range("a" & k) = Sheet.Name
Sheets("data").Range("b" & k) = Sum

k = k + 1

End If

Next

Sheets("data").Select

End Sub