Dim H As Integer '總行數
H = 1000 '假定總行數為1000，根據需要改
Dim I As Integer '定義行變量
Dim J
For I = 1 To H
If Worksheets("sheet1").Cells(I, 2).Value = "10月份" Then
Worksheets("sheet1").Cells(1, 1).Value = I
Worksheets("sheet1").Cells(2, 1).Value = I
J = I
GoTo Next1:
End If
Next
Next1:
For J = 1 To H
If Worksheets("sheet1").Cells(J, 2).Value = "10月份" Then
Worksheets("sheet1").Cells(2, 1).Value = J
End If
Next
End Sub