Excel 查找函数并复制数据

我试图使用find函数来查找数据行，我想将该行的所有数据块从A列复制到H列，然后复制到另一个工作表中。但是，“查找”功能不起作用。请问我是否做得正确，我很不确定如何将数据复制到下一行。提前谢谢你的帮助

Dim r, ran, ranOff As Range
Set ran = Cells.Find(What:="#           pin/pkgpin  Schem Label  Pkg Pad  
Bank   Pkg Label  Pad/Bump Coord  Probe Coord  Pkg Coord")
Set ranOff = ran.Offset(1, 0)
ranOff.CurrentRegion.Select

尝试下面的代码（代码注释中的解释）：

选项显式
次进口护墙板（）
Dim Ran作为范围，RanOff作为范围
Dim STROTOFIND As字符串
'修改要在此处查找的字符串
strofind=“#pin/pkgpin方案标签包装垫银行包装标签垫/通气坐标探头坐标包装坐标”
Set Ran=Cells.Find（What:=strofind，LookIn:=xlValues，LookAt:=xlWhole）
如果Not Ran为Nothing，则“您要查找的字符串是什么？”？是整个
“：=”#pin/pkgpin Schem Label Pkg Pad Bank Pkg Label Pad/Bump Coord Probe Coord Pkg Coord“
？是的，是这样，它现在可以工作了，但现在我有另一个问题：在找到行之后，我如何复制该行下面的数据？@RachelChia将下面一行的数据从列“A”复制到列“H”“？hi jus要在以下行学习vba:Set RanOff=Range（“A”&Ran.Row+1&“：H”&Ran.Row+1）什么是“+1”？@RachelChia
Ran.Row
会给你找到
的行号，因为你想复制下面的行，我添加了
+1
谢谢你一直以来的帮助：）
Option Explicit

Sub Importar_Dados()

Dim Ran As Range, RanOff As Range
Dim StrtoFind As String

' modify the string to Find here
StrtoFind = "#           pin/pkgpin  Schem Label  Pkg Pad Bank   Pkg Label  Pad/Bump Coord  Probe Coord  Pkg Coord"

Set Ran = Cells.Find(What:=StrtoFind, LookIn:=xlValues, LookAt:=xlWhole)

If Not Ran Is Nothing Then ' <-- Find was able to find a match
     Set RanOff = Range("A" & Ran.Row + 1 & ":H" & Ran.Row + 1) '<-- set the range 1 row below, from column A to column H
     RanOff.Copy '<-- copy the range    
     ' rest of your code ...

Else ' unseuccessful Find
    MsgBox "unable to find " & StrtoFind
End If

End Sub