问一下如何编写程序进行excel中计算加权平均成绩的东西，用VBA行么

[bss001]

现在都是用∑（成绩的地址*学分的数值）/∑（学分数值）所以至少有一行是输进去的，要是科目比较多的话不合适。
用SUMPRODUCT（）/SUM（） 不能往下拉（因为是地址顺序加1） 求有效解决方法

[水向东流时光怎么偷]

请拿点数据出来...

[bss001]

[Quote=引用 1 楼 abclm 的回复:]
请拿点数据出来...
[/Quote]

学分 4 3 3 4 2.5 4.5 4 1 0.5 1.5 1

葛洪颖 85 84 86 94 96 77 100 90 92 85 95 88.65517241 1
袁海琴 85 88 76 92 89 83 100 78 94 85 75 87.01724138 2
杜利叶 82 90 84 86 87 81 90 86 92 95 85 86.05172414 3
刘倩 71 90 76 94 74 80 100 89 93 85 85 84.51724138 4
白慧莎 75 87 78 92 85 70 94 90 92 85 95 83.62068966 5
贾鹏丽 71 93 81 87 80 81 88 91 92 95 75 83.62068966 6
赵彩学 76 96 80 80 81 79 83 86 92 85 95 82.63793103 7
贝建畅 71 86 74 92 88 76 88 84 94 85 75 82.05172414 8
李宏伟 76 68 78 83 77 76 93 85 92 85 75 79.79310345 9
刘伟茜 73 63 81 84 76 75 92 90 93 85 75 79.12068966 10
房婷 71 82 82 70 83 81 78 84 92 95 75 78.87931034 11
石丹丹 67 81 79 76 74 71 92 84 94 95 75 78.37931034 12
卞思硕 73 80 73 77 73 67 92 76 96 85 95 77.84482759 13
李英博 77 92 74 66 73 64 93 88 93 85 75 77.56896552 14
王静 69 76 81 79 82 68 84 85 92 85 75 77.36206897 15
韩双娇 70 76 78 73 81 74 81 89 94 85 75 76.96551724 16
酆爽 70 86 72 82 78 62 77 94 94 85 75 76.12068966 17
方搏 65 78 60 80 71 64 79 86 94 85 75 72.79310345 18
陈亚欣 68 60 65 72 61 74 79 89 93 85 85 71.87931034 19
刘晶 67 60 61 78 60 60 89 86 94 85 60 70.32758621 20
董坤荣 65 82 68 54 60 66 75 86 93 75 60 68.20689655 21
贾丽坤 64 62 63 66 76 54 71 90 93 85 60 66.75862069 22
付晓林 74 72 76 80 76 0 82 89 92 85 95 66.74137931 23
李心娇 67 78 78 68 71 0 78 85 94 85 60 62.65517241 24
许冬冬 67 64 65 69 70 0 75 66 88 75 95 59.43103448 25
许贺 84 84 76 80 81 68 81 85 92 95 75 59.43103448 26
朱俊达 67 0 62 0 0 60 70 95 91 85 75 46.44827586 27
靳男 0 0 0 0 0 0 0 86 89 85 60 10.96551724 28