VBA:Sub test()Dim i As Integer, j As IntegerFor j = 1 To 13 For i = 1 To 32 If Cells(i, j) = "出差" Then Cells(33, j) = i - 2 Exit For End If Next iNext jEnd Sub 都沒出差的話不會顯示...