با سلام
یک ماکرو برای شما تهیه گردید در فایل اصلی خود یک شیت به نام search ایجادکنید و با ALT+F11 وارد قسمت VB اکسل شده و یک ماژول جدید ایجاد نموده و کدهای ذیل را در آن کپی نموده و اجرا نمایید
کد PHP:
Sub search()
Dim cel As Range
Dim rng As Range
Dim list1 As New Collection
If list1.Count > 0 Then
For i = 1 To list1.Count
list1.Item(i).delet
Next
End If
Z = Sheets("search").Cells(Sheets("search").Rows.Count, "A").End(xlUp).Row
Sheets("search").Range("a3:a" & Z).ClearContents
For Each Sheet In Worksheets
If Sheet.Name <> "search" Then
For Each cel In Sheet.UsedRange
If cel.Value = Sheets("search").Range("a1").Value Then
list1.Add cel.Value
End If
Next
End If
Next
k = 3
For i = 1 To list1.Count
Sheets("search").Range("A" & k).Value = list1.Item(i)
k = k + 1
Next
End Sub
علاقه مندی ها (Bookmarks)