excel如果單元格包含XYZ複製到新工作表

Question

我在SHEET1（ALL）上有一個下載的銀行對帳單。 我沿着側其中之一

=SUMIF(C:C,H3,D:D) 

搜索的描述爲H3的值運行了幾個小部件（如：* *工資）和彙總起來D.

我現在需要的相應值擴展它，以便將整個ROW複製到新的電子表格中。

我也想，如果可能的話，從一個輸入框開始，這樣我就可以一次搜索多個東西。

我看過/嘗試過的各種代碼只能用於C行的確切值。但是銀行對賬單兩次都沒有變化，我希望它在可能的情況下通配符搜索。

謝謝你的時間。

親切的問候

亞歷克斯·尼科爾

Answer 1

我最近寫的VBA代碼，就這樣。當我用這個詞支付，你可以用這個詞工資和包括您的通配符，像這樣：

a.Cells(b.Row, 16).Value LIKE "*Wages*" 


Sub ShortTerm() 
Dim a As Range, b As Range 
Dim i As Long 
Dim j As Long 
Dim p As Long 
Dim value1 As Variant 

i = 4 'the start row for pasting 

Set a = ThisWorkbook.Sheets("Payments").UsedRange 

For Each b In a.Rows 

'in the next line change 16 to reflect the column where WAGES is found 
If a.Cells(b.Row, 16).Value = "Short Term" Then 
For j = 1 to 16 
value1 = a.Cells(b.Row, j).Value 
ThisWorkbook.Sheets("DestinationSheet").Cells(i, j).Value = value1 
Next 

i = i + 1 
End If 
Next 
End Sub 

顯然，我只是複製16列，所以如果這是你想要的，這應該工作。如果您需要更多，請將該循環放大。可能有一種方法可以複製整行，但我原本只想要特定的單元格，而且我希望將它們重新組織起來，這就是爲什麼我按照自己的方式做到了這一點。

參見我的博客帖子在這裏：

http://automatic-office.com/?p=355