Excel / VBA迭代工作表中的每个单元格，比较值，将行复制到另一个工作表

In my Excel-File I want to implement a custom search. Therefore I created a worksheet called "Search" - On this Table I put a TextBox, a Button and a short Info-text. At the moment I go over every worksheet and copy the second row (Titles of my columns), then I compare the text of every cell with the searchword and if i get a match I will copy the row, where I found the match.In my Excel-File I want to implement a custom s