原来是同行啊,以前我也是气象从业人员,现在不是了,以前的气象知识现在差不多忘光了,大概写了一些,你回去改一改就可以了

Private Sub CommandButton1_Click() hs = 2
While Cells(hs, 1) <> "" If Cells(hs, 1) >= 22.5 And Cells(hs, 1) < 45 Then Cells(hs, 2) = "NNE"
If Cells(hs, 1) >= 45 And Cells(hs, 1) < 67.5 Then Cells(hs, 2) = "NE"
'''依次类推
If Cells(hs, 1) >= 337.5 Or Cells(hs, 1) < 22.5 Then Cells(hs, 2) = "N" hs = hs + 1
Wend End Sub