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

[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