기능을 찾아 나는 데이터의 행을 찾기 위해 기능을 찾아 사용하는 것을 시도하고 데이터

를 복사하고 내가 다른 워크 시트에 H에 열 A에서 행 아래로 데이터의 모든 덩어리를 복사 할. 그러나 찾기 기능이 작동하지 않습니다. 내가 올바르게했는지 알 수 있고 행 아래로 데이터를 복사하는 방법에 대해 매우 확신하지 못합니다. 사전에 도움을 주셔서 감사합니다.기능을 찾아 나는 데이터의 행을 찾기 위해 기능을 찾아 사용하는 것을 시도하고 데이터

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

출처

2017-04-25 Rachel Chia

원하는 문자열이 무엇을 찾을 수있다 :

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

–

예, 그것이 지금, 그 –

은 (코드 주석 내부 설명) 아래의 코드를 시도? 그것은 '전체이다 "="# 핀/pkgpin Schem 라벨 PKG 패드 은행 PKG 라벨 패드/범프 좌표 운전 프로브 좌표 운전 PKG 좌표 운전 "`

출처

2017-04-25 05:05:25

안녕 작품이지만, 지금은 또 다른 QN이? : 내가 행을 찾은 후, 어떻게 행 아래가 나는 데이터를 복사 할 열 "H"에 칼럼 "A"에서 한 행 아래의 데이터를 복사 할 –

@RachelChia을 –

예, 그렇게하는 것이 가능하다 –

기능을 찾아 나는 데이터의 행을 찾기 위해 기능을 찾아 사용하는 것을 시도하고 데이터

답변

관련 문제