vba代码，用于在列的后续单元格中查找特定值和复制值，并粘贴到新工作表中

Question

我有一张包含一些数据的Excel表格。在A列中，它有一组数据，我的目标是复制包含其值为“Line”的单元格下方的单元格值。

Columns("B:B").Select
Set cell = Selection.Find(What:="line", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If cell Is Nothing Then
    'do it something

Else
    'do it another thing
End If

但它只用于查找包含Line的单元格值。

Answer 1

要引用下方一行的单元格和右侧的零列，您可以使用cell变量引用的单元格cell.Offset(1, 0)。

（显然，只有当cell不是Nothing时才能这样做，因此只需要在代码的Else语句的If段中使用。 ）