или так

Sub www()  
Dim i&, ii&, y&, s  
For y = 1 To Cells(Rows.Count, 4).End(xlUp).Row  
For i = 2 To Sheets.Count  
If Left(Cells(y, 4).Value, Len(Sheets(i).Name)) = Sheets(i).Name Then  
s = Sheets(i).Name: ii = 1: y = y + 1  
End If  
Next  
Sheets(s).Cells(ii, 1) = Cells(y, 4)  
Sheets(s).Cells(ii, 2) = Cells(y, 5)  
ii = ii + 1  
Next  
End Sub  
 
-=71177=-

то есть If Not .Exists(a(i, 1)) Then

Sub www()  
   Dim a, b, c, i&, ii&  
   Application.ScreenUpdating = False  
   With Sheets("Массив_2")  
       a = .Range("B7:I" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value  
   End With  
   With Sheets("Массив_1")  
       b = .Range("B7:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value  
   End With  
   ReDim c(1 To UBound(a), 1 To 9)  
   ii = 1  
   With CreateObject("Scripting.Dictionary")  
       .CompareMode = 1  
       For i = 1 To UBound(b): .Item(b(i, 1)) = i: Next  
       For i = 1 To UBound(a)  
           If .Exists(a(i, 1)) Then  
               c(ii, 1) = ii: c(ii, 2) = a(i, 1)  
               c(ii, 3) = a(i, 2): c(ii, 4) = a(i, 3)  
               c(ii, 5) = a(i, 4): c(ii, 6) = a(i, 5)  
               c(ii, 7) = a(i, 6): c(ii, 8) = a(i, 7)  
               c(ii, 9) = a(i, 8): ii = ii + 1  
           End If  
       Next  
   End With  
   With Sheets("Ненайдено")  
       .Activate:.[a7].Resize(UBound©, 9) = c
   End With  
   Application.ScreenUpdating = True  
End Sub

=ВПР(C4;B$23:C$28;2;1)

 http://www.excel-vba.ru/chto-umeet-excel/kak-soxranit-kartinki-iz-lista-excel-v-kartinki-jpg/

макрос+УФ  
-=67450=-

.

так?

=ЕСЛИОШИБКА(ПОИСКПОЗ(1;--ЕЧИСЛО(ПОИСК(ЕСЛИ(B3:F3<>"";B3:F3);A1));0);"отсутствует")

Или так! Массивная формула  
=ЕСЛИОШИБКА(ПОИСКПОЗ(ИСТИНА;ЕЧИСЛО(ПОИСК(B3:F3;A1));0);"отсутствует")

вариант

Юрий М, так как я понял чтобы было формула в определенном ячейке ссылаясь на активную ячейку, да вообще та без разницы формула или значения результат тот же, не считая если активная ячейка пусто (значения="" и формула=0)

да

Присоединяюсь, Желаю самого наилучшего!!!

может так?  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   Range("A1").Formula = "=" & ActiveCell.Address  
End Sub

смотрите настраиваемую сортировку

yana33311, писал же что надо с перво текст по столбцам (столбик F)

=БСЧЁТА(A1:E11;C1;G1:H2)  
-=44242=-

Application.Undo  
MsgBox "Для начала введите название города!", vbCritical, "Error"  
Cells(Target.Row, 8).Activate 'Добавьте  
Application.EnableEvents = True  
 
-=55560=-

Игорь, пока в не силен :), но изучаю

столбец F - надо текст по столбцам "(", убираете (C11CA80201)  
и поменяйте  
If w(i, 1) = ww(x, 1) Then  
на  
If w(i, 1) & " " = ww(x, 1) Then

.

пример?

Columns("C:C").EntireColumn.AutoFit  
Columns(4).AutoFit

может так?  
For b = 1 To dhLastRowUsedCell(Rows(a))  
           Worksheets("Лист2").Range("A" & (a + b - 2)).Value = Worksheets("Лист1").Range(Cells(a, 3 + b).Address).Value  
           Worksheets("Лист2").Range("B" & (a + b - 2)).Value = Worksheets("Лист1").Range(Cells(a, 2).Address).Value  
       Next

в любую кроме "LOG"  
Sub www()  
   If ActiveSheet.Name = "LOG" Then Exit Sub'Если активный лист = "LOG", тогда выходить из программы(макрос)  
...  
End Sub

так?  
Private Sub Worksheet_Change(ByVal Target As Range)  
   Dim i&  
   If Target.Column <> 4 Then Exit Sub  
   i = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1  
   If Cells(Target.Row, 12).Value <> "" Then  
       Cells(Target.Row, i).Value = Target.Value  
   Else: Cells(Target.Row, 12).Value = Target.Value  
   End If  
End Sub

Вот, смотрите пароль VBA 333  
Свойство листа "LOG" Visible = 2 (скрыл лист)  
дабл клик на лист вызывает форму для скрытия/Показать лист "LOG", пароль также 333

iba2004, при открытии книги UserInterfaceOnly:=True дает возможность изменить данные на листе ("LOG") макросом (не вручную), так что можете удалить -Sheets("LOG").Unprotect. И поставьте VBA пароль. О Счастье.  
 
'в ЭтуКнигу  
Private Sub Workbook_Open()  
   Sheets("LOG").Protect Password:="333", UserInterfaceOnly:=True  
End Sub