vba - 使用 Instr 复制单元格值

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