Excel VBA編程，實現成績級別分類並顯示最好科目，如圖

這個需求正常情況下應該使用公式，而且就三個科目，除非妳想學習VBA，代碼如下：

Sub?YgB()

Dim?i,?j,?k,?x,?y

i?=?2

While?Cells(i,?1)?<>?""

x?=?Cells(i,?2)?'最高分

For?j?=?3?To?4

If?Cells(i,?j)?>?x?Then?x?=?Cells(i,?j)

Next?j

y?=?""?'最高分科目

For?j?=?2?To?4

If?Cells(i,?j)?=?x?Then?y?=?y?&?Cells(1,?j)?&?"?"

Next?j

Cells(i,?5)?=?x

Cells(i,?6)?=?y

i?=?i?+?1

Wend

End?Sub

執行拷屏：

優秀那壹步，如果需要判斷，應該把下面的語句：

cells(i,5)=x

修改為：

Cells(i, 5) = IIf(x < 60, "不及格", IIf(x < 80, "及格", "優秀"))

具體標準妳自行設定。