查找功能，並複製我試圖使用查找功能查找數據的行數據

，我想從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

來源

2017-04-25 Rachel Chia

什麼是你想要的字符串找？是它整個'「：=」＃引腳/ pkgpin舍姆標籤PKG墊銀行PKG標籤墊/凹凸座標探頭座標PKG座標「' –

是的，這是 –

嘗試（代碼註釋中說明）下面的代碼：

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 05:05:25

嗨，現在的工作，但現在我有另一個QN？：後我覺得行，我怎麼拷貝數據有往下排 –

@RachelChia下面一行將數據從「A」欄複製到列「H」 –

是的，是有可能這樣做 –

查找功能，並複製我試圖使用查找功能查找數據的行數據

回答

相關問題