[حل شده] جمع مقادیر یک ستون با vba

[rayeagni]

سلام دوستان
در یک فایل اکسل در ستون a، حدود هزار ردیف عدد دارم. میخوام این اعداد رو 2 در میان با استفاده از VBA جمع بزنم و مقدارش رو بدست بیارم. اولین عدد از ردیف a7 شروع میشه.
لطفا راهنمایی بفرمایید.

[iranweld]

با سلام


خدمت شما

Sub test()

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

For i = 7 To z1 Step 3

Sum = Sum + Range("A" & i)

Next

MsgBox Sum

End Sub 

[rayeagni]

با سلام


خدمت شما

Sub test()

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

For i = 7 To z1 Step 3

Sum = Sum + Range("A" & i)

Next

MsgBox Sum

End Sub 

دست شما درد نکنه خیلی ممنون