當前位置:成語大全網 - 新華字典 - excel vba 查找行號

excel vba 查找行號

Sub lxx()

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