Private Sub Prepare_table_data_Click()


     Dim x As Integer, y As Integer, VAL As Integer
 VAL = 0
     ' numrows: = skolko strok
     NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
     ' NumCells: = skolko kolonok
     NumCells = Range("A1", Range("A1").End(xlToRight)).Columns.Count
     ' select a1.
     
     Range("R" & NumRows).Value = "table has" & NumRows & "rows"
     Range("Q" & NumCells).Value = "table has" & NumCells & "kolonok"
     
     
     Range("A1").Select
     ' cukl «For» s povtorom do «numrows».
     
     For y = 0 To NumRows
       For x = 0 To NumCells
 
Алгоритм сравнения ячейки, есть ли в ней текст "text" если есть, тогда содержимое ячейки 
через одну правее скопировать например в колонку "Т" в ту же строку



       Next
     Next

Подскажите кто знает кусок этого алгоритма сравнения?


End Sub

For y = 1 To NumRows
       For x = 1 To NumCells
      
    
        If Cells(y, x).Value = "Text_poiska" Then  'поиск ячейки с значением Text_poiska текст любой, у меня искало L-cd/m²
            Cells(y, x).Interior.ColorIndex = 6       'покрасим найденные ячейки в yellow color
                       
            Cells(y, 23).Value = Cells(y, x).Value      'найденную ячейку скопируем в столбик 23 - это W столбик 
            Cells(y + 1, 23).Value = "zagolovok"            'внизу столбика - заголовок  zagolovok
            Cells(y, 24).Value = Cells(y, x + 2).Value    'ячейка, которая находится на две позиции правее искомого текста копируется в столбик 24
            Cells(y + 1, 24).Value = "Mittel"             'заголовок столбика

        End If
         Next
Next