VBA 定位某个字符串在当前表格中哪一行

抱歉，ChitGPT 是一个自然语言处理模型，无法执行具体的编程操作。对于您的问题，您可以使用 VBA 中的“Find”函数来查找特定字符串，并给出其所在的行数。以下是一个示例代码：

Sub FindString()
    Dim searchString As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    searchString = "Your search string" '将“Your search string”替换为您要查找的字符串
    Set searchRange = ActiveSheet.UsedRange '将“ActiveSheet”替换为您正在使用的工作表
    
    Set foundCell = searchRange.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlWhole)
    
    If foundCell Is Nothing Then
        MsgBox "String not found!"
    Else
        MsgBox "String found in row " & foundCell.Row
    End If
End Sub

此代码将搜索当前工作表中的字符串，并显示找到的行数。希望对您有所帮助！

相关问题

数组中有若干个字符串，用vba生成一个判断，如果表格a列有值等于数组中的字符串，则将该单元格赋值为数组中第一个字符串，否则赋值为数组中的第二个字符串

可以使用VBA中的InStr函数来判断表格a列中的值是否等于数组中的字符串，然后使用If语句进行判断和赋值操作。以下是示例代码：

Sub CheckArray()
    Dim arr() As String
    arr = Split("string1,string2", ",") '将字符串转换为数组
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取表格a列的最后一行
    
    For i = 1 To lastRow '循环遍历表格a列
        For j = 0 To UBound(arr) '循环遍历数组
            If InStr(1, Cells(i, "A").Value, arr(j), vbTextCompare) > 0 Then '判断表格a列中的值是否等于数组中的字符串
                Cells(i, "B").Value = arr(0) '如果等于，则将该单元格赋值为数组中的第一个字符串
                Exit For '退出循环
            Else
                Cells(i, "B").Value = arr(1) '如果不等于，则将该单元格赋值为数组中的第二个字符串
            End If
        Next j
    Next i
End Sub

注意：在实际使用中，需要将代码中的字符串数组和表格列名进行相应的修改。

数组中有若干个字符串，用vba生成一个判断，如果表格a列有值等于数组中的字符串，则将该单元格赋值为1，否则赋值为0

可以使用VBA中的InStr函数来判断字符串是否存在于数组中，然后在表格a列中进行赋值操作。以下是示例代码：

Sub CheckArray()
    Dim arr() As String
    arr = Array("string1", "string2", "string3") '将要查找的字符串数组
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取表格a列的最后一行
    
    For i = 1 To lastRow '遍历表格a列
        For j = 0 To UBound(arr) '遍历字符串数组
            If InStr(Cells(i, "A").Value, arr(j)) > 0 Then '判断字符串是否存在于数组中
                Cells(i, "B").Value = 1 '如果存在，则将该单元格赋值为1
                Exit For '跳出当前循环
            Else
                Cells(i, "B").Value = 0 '如果不存在，则将该单元格赋值为0
            End If
        Next j
    Next i
End Sub

在上述代码中，我们首先定义了一个字符串数组arr，然后获取了表格a列的最后一行。接着，我们使用两个嵌套的循环来遍历表格a列和字符串数组，使用InStr函数来判断字符串是否存在于数组中，如果存在，则将该单元格赋值为1，否则赋值为0。最后，我们使用Cells函数来进行单元格的赋值操作。