با سلام
با استفاده از کدنویسی امکان پذیر است
کد PHP:
Sub test()
Sheets("vaziat").Range("A2:I20").ClearContents
Sheets("takhsis").Select
For Each Sheet In Worksheets
If Sheet.Name <> "vaziat" Then
z1 = Sheet.Cells(Rows.Count, "A").End(xlUp).Row
Z2 = Sheets("vaziat").Cells(Sheets("vaziat").Rows.Count, "A").End(xlUp).Row + 1
For I = 2 To z1
If Sheet.Range("A" & I) = Sheets("vaziat").Range("K2") Then
Sheet.Range("A" & I & ":I" & I).Copy Destination:=Sheets("vaziat").Range("A" & Z2)
End If
Next
End If
Next
Sheets("vaziat").Select
End Sub
علاقه مندی ها (Bookmarks)