Question

VB find函数

我想使用find函数来查找C列里TC1的位置，在找到这个字符串之后记录下来找到的字符串的位置信息，并从这一格作为起点选中C到M列，并复制这一行以下的所有文本。麻烦各位大虾帮我做一段这样子的代码嘛，谢谢！

Answer 1

Private R(99)
Private Function Find(ByVal str As Double) As Integer
If R(0) = "" Then
Randomize
For i = 0 To UBound(R)
R(i) = Int(Rnd * 100)
Next i
End If

For i = 0 To UBound(R)
If R(i) = CDbl(str) Then
Find = i
Exit Function
End If
Next i
Find = -1
End Function
Private Sub Command1_Click()
Dim i As Integer
i = Find(InputBox("请输入一个数"))
If i <> -1 Then
MsgBox "恭喜你，猜中了!" & vbCrLf & "答案就在数组R(" & i & ")" & "中", vbInformation
Else
MsgBox "错误!", vbCritical
End If
End Sub

Answer 2

Sub xx()
    Dim Rng As Range,i as Long
    Set Rng = [c:c].Find("CT1",,,xlWhole)
    If Not Rng is Nothing Then
        i = UsedRange.Rows.Count
        Rng.Resize(i - Rng.Row + 1, 11).Select
    End if
End Sub

追问

大虾，谢谢你帮我写这段代码，但我复制过去之后运行不了。麻烦再帮我看一下嘛，谢谢！

追答

哦，不是CT1，你自己改一下吧，改成 TC1

追问

但我改了之后就运行不了，报的错是run-time error 424

追答

134679Q14Q，附件传给我！