比較2張2列，但過濾來自響尾蛇

嗨來自像蛇菠蘿蘋果，我有我的朋友用它來之前低於我基本上創建的代碼。唯一的區別是我的代碼在他的使用成果時使用動物。任何人都可以告訴我如何過濾讓我們說從響尾蛇和菠蘿蘋果的蛇，因爲使用他檢測菠蘿蘋果的水果。這是我的代碼。請建議，如果我的問題是一個混亂善意地問我所以我可以更清楚。對不起我的英語不好。比較2張2列，但過濾來自響尾蛇

Sub lookup() 
Dim TotalRows As Long 
Dim rng As Range 
Dim i As Long 

'Copy lookup values from sheet1 to sheet3 
Sheets("Sheet1").Select 
TotalRows = ActiveSheet.UsedRange.Rows.Count 
Range("A1:A" & TotalRows).Copy Destination:=Sheets("Sheet3").Range("A1") 

'Go to the destination sheet 
Sheets("Sheet3").Select 

For i = 1 To TotalRows 
'Search for the value on sheet2 
Set rng = Sheets("Sheet2").UsedRange.Find(Cells(i, 1).Value) 
'If it is found put its value on the destination sheet 
If Not rng Is Nothing Then 
    Cells(i, 2).Value = rng.Value 
End If 
Next 
End Sub

需要幫助。謝謝。

來源

2014-05-19 Roi patrick Florentino

在.Find方法，你可以指定'LookAt'參數是'xlWhole'精確匹配（不區分大小寫）或'xlPart'的識別粒子比賽。 – tigeravatar

喜歡這位先生？ 'Set rng = Sheets（「Sheet2」）。UsedRange.Find（Cells（i，1）.Value LookAt：= lPart）'??我糾正或者糾正？ –

只是缺少逗號'Set rng = Sheets（「Sheet2」）。UsedRange.Find（Cells（i，1）.Value，LookAt：= lPart）' – tigeravatar

我找到了答案，我的問題

我只關注蘋果則轉向蘋果更加獨特。

下面的代碼

Dim cl As Range 

For Each cl In Range ("Q10:Q1000") 
    If cl Like "apple" Then 
    cl = "apples" 
    End if 
Next cl

來源

2014-05-21 15:59:06

比較2張2列，但過濾來自響尾蛇

回答

相關問題