在vba中使用搜索功能时需要更加动态

时间:2013-12-23 16:43:53

标签: excel vba excel-vba

我有以下代码并且在想知道如何使搜索结果更具动态时陷入困境,即在搜索“价格”之后,我需要将“价格”及其右侧的单元格复制到单元格A1 ,任何帮助表示赞赏。

Sub Macro1()
    Cells.Find(What:="price", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Range("L14:M14").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

1 个答案:

答案 0 :(得分:1)

Sub Macro1()
    Dim f as Range
    Set f = Activesheet.Cells.Find(What:="price", After:=ActiveCell, _
                 LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                 SearchDirection:=xlNext, MatchCase:= False, SearchFormat:=False
    if not f is nothing then
        f.resize(1,2).copy Activesheet.Range("a1")
    end if
End Sub