Private Sub CommandButton1_Click()
Call test1
End Sub
Public Sub test1()
Dim a As String
a = Sheet1.Range("C3").Value '获取一个range单元格的值
MsgBox (sear(a))
End Sub
Public Function sear(a As String) As Integer '返回在sheet2中的位置
Dim b As String
Dim i As Integer
For i = 1 To 97 Step 2
b = Sheet2.Range("a" & i).Value
If a = b Then ‘只一步字符串判断总是不对’
Exit For
End If
Next
sear = i
End Function
干脆我重新给你写个吧。
Private Sub CommandButton1_Click()
If Sheet1.Range("C3").Value = "" Then
MsgBox "Sheet1的C3不能为空", 16
Else
Dim rg As Range, Sear As Long
Set rg = Range("A1:A97").Find(Sheet1.Range("C3").Value, Range("A97"), , xlWhole)
If Not rg Is Nothing Then '如果能查找到
If rg.Row Mod 2 = 1 Then '如果该单元格的行号是奇数
Sear = rg.Row '那么把行号赋值给Sear
End If
End If
If Sear = 0 Then
MsgBox "没有符合的结果", 16
Else
MsgBox "已找到,行号为 " & Sear, 64
End If
End If
End Sub