EXCEL VBA - 統計得分

這個題目感謝政大同學們給我的作業
因為上週二我趕車[到新竹]
所以網路考試要打分數 , 所以我用EXCEL寫了一段VBA 可以做計算
大致技巧如下
1 工作表內容
題號 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 得分
原始答案 4 4 3 4 2 2 3 2 4 2 2 2 1 3 4 4 4 3 3 3 1 3 4 1 3
c29 4 4 3 4 2 2 3 2 1 2 2 4 1 3 4 4 4 3 3 3 1 3 4 1 3 69
c13 4 4 3 4 2 2 2 1 1 2 2 1 2 2 1 2 4 4 2 3 1 1 4 2 3 39
會有C01到C60個同學代號 , 共有25個題目 每題3分 如何可以快速比對並算其分
其VBA程式如下

Sub Macro1()

myx = 0
myy = 1

x = InputBox("請輸入同學人數")

For j = 0 To x Step 1
ans = 0

Range("B2").Select
For i = 0 To 24 Step 1
If ActiveCell.Value = ActiveCell.Offset(myy + j, myx).Value Then
ans = ans + 3
ActiveCell.Offset(myx, myy).Select
Else
ans = ans
ActiveCell.Offset(myx, myy).Select
End If





Next

ActiveCell.Offset(myy + j, 0).Value = ans
Next
End Sub

簡單吧 , 如果您有這樣的問題 可以討論喔