vba - 查找范围内的特定字符串并将其复制到 VBA 中的另一个字段

Question

所以我想在一个范围内找到一个特定的字符串，获取它的地址并将其值复制到一个新的单元格中，这取决于旧的地址

这是我迄今为止尝试过的:

Dim c As Range

For Each c In Range("F1:F1500")
    If InStr(1, c.Text, "Overall Result") Then
        Range(c).Select
        Selection.Cut
        Range(newAddress).Select
        ActiveSheet.Paste
    End If
Next c

但我不确定如何获取单元格的正确地址。新单元格应该是旧的地址.行和旧的地址.列+1

Answer 1

您可以使用c.Offset(ColumnOffset:=1)从c范围中向右移动一列。

Dim c As Range

For Each c In Range("F1:F1500")
    If InStr(1, c.Text, "Overall Result") Then
        c.Cut Destination:=c.Offset(ColumnOffset:=1)
    End If
Next c

另请查看How to avoid using Select in Excel VBA这是一种不好的做法，会减慢你的速度并且不太可靠。