Question

VBA 指定在J列搜索某单元格的内容并复制

我想在Total工作表 在指定的10列搜索cells(6,1)内容 跳转到该单元格 并复制该单元格这行2列到指定的工作表

Answer 1

没有指明目标位置，暂且Sheet2的A1格吧。

Sub Demo()

Dim Finded As Range

With Sheets("Total")

On Error Resume Next

Set Finded = .Columns("J:J").Find(what:=.Range("A6").Value, lookat:=xlWhole)

On Error GoTo 0

If Not Finded Is Nothing Then

Finded.Offset(0, -8).Copy Sheets("Sheet2").Range("A1")

End If

End With

End Sub

追问

谢谢