پیدا کردن شماره ردیف اکسل در ماکرو برای عبارتی مشخص

[hamid_rm]

با سلام خدمت اساتید گرامی
من میخوام شماره ی ردیف هایی رو پیدا کنم که در یک ستون مشخص مثل E، محتوای آنها یکیه.
با استفاده از دستور :
f = WorksheetFunction.CountIf(Range("E2", "E300"), start_Row)
تونستم تعداد ردیف های تکرار شده با کلمه "Effect of Nanoclay" رو پیدا کردم که 3 تاست و میریزه توی متغیر F. اما میخوام در یک متغیر دیگه (مثلاً S ) به من نشون بده اینها در ردیفهای 2، 3 و 4 وجود دارد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

بصورت فرمول میتوانید از فرمول ذیل استفاده کنید

=IFERROR(IF(FIND($D$1,A2,1)>0,ROW(A2),""),"") 

و با vb

با استفاده از دستور Instr میتوانید موقعیت کلمات مورد نظر در سلول را بدست بیاورید و سپس شماره سطر سلول مورد نظر را استخراج کنید

Private Sub CommandButton1_Click()

Dim str As String

str = Range("d1").Value

k = 2

Z = Cells(Rows.Count, "A").End(xlUp).Row

z1 = Cells(Rows.Count, "d").End(xlUp).Row

Range("d2:d" & z1).ClearContents

For i = 1 To Z

xx = Range("A" & i).Value

If InStr(1, xx, str) > 0 Then

Range("d" & k).Value = Range("a" & i).Row

k = k + 1

End If

Next


End Sub