заполненный лист A из листа B - excel VBA

Question

У меня есть следующий сценарий: У меня есть два листа RAW и BOM. То, что я хотел бы сделать, - заполнить лист спецификации из RAW для определенных компонентов.

Например, на рабочем листе спецификации VXL5-50 (выделено желтым цветом). Поэтому для этого компонента я просматриваю столбец sheet1 -> 'type type и смотрю, существует ли эта строка. Если это произойдет, то я увеличивается на 1 в столбце QTY в спецификации листа

Вот два листа RAW и BOM

http://i43.tinypic.com/aos0uu.jpg

http://i43.tinypic.com/j5cxg7.jpg

Answer 1

Sub test() 

Dim rng As Range 

Dim dblrow As Double 

'shtSearch,shtCoutn are sheet names. 

    lastrow = shtSearch.Cells(Rows.Count, 1).End(xlUp).Row 

    j = 0 

For i = 1 To lastrow 
    If InStr(1, shtSearch.Cells(i, 1), "abcd", vbTextCompare) > 0 Then 
    'Count the search 
     j = j + 1 
    End If 
Next 

Set scrRng = shtCount.Range("A:A") 

Set rng = scrRng.Find(What:="abcd", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False) 

dblrow = Mid(rng.Address, 4, Len(rng.Address) - 3) 

shtCount.Cells(dblrow, 2) = j 

End Sub 

Вы можете изменить вышеуказанный код и использовать другие критерии.