Question

我需要复制包含一串文字的单元格。我正在使用instr查找单元格，但无法复制内容。请帮忙。

Answer 1

当你找到单元格（使用任何方法，我猜你正在循环遍历单元格并使用InStr来测试它们的内容）时，你可以将该值赋给一个新变量，而不是将其“复制”到剪贴板

Public Sub FindTheText()
    Dim strCellValue As String
    Dim i As Integer

    ' Loop through cells on a sheet to find the text "theText"
    For i = 1 To 100
        If InStr(1, "theText", Cells(i, 1).Value, vbTextCompare) <> 0 Then
            strCellValue = Cells(i, 1).Value
            Exit For
        End If
    Next i
End Sub

然后您可以在其他地方使用字符串变量strCellValue，或者使用以下命令将其分配给另一个单元格的值：

Cells(2,5).value = strCellValue

使用Instr复制单元格值

1 个答案: