The complete VBA code: Sub find_color() x = 2 y = 2. Do While Cells(x, 1) <> “” MyText = Cells(x, 1) Do While Cells(y, 4) <> “” If InStr(MyText, “blue”) And ...
確定! 回上一頁