Добрый день! Есть файл, в котором требуется на втором листе в соответствие с колонками и строками выделить ячейку. Как правильно прописать макрос, пробовал прописать так
Но так не работает.
Пример в файле.
Код |
---|
Lastrow = ThisWorkbook.Sheets("лист1").Cells(Rows.Count, 1).End(xlUp).Row Lastcolumn = ThisWorkbook.Sheets("лист1").Cells(4, Columns.Count).End(xlToLeft).Column x = ThisWorkbook.Sheets("лист2").Cells(2, 1) Do While y = Lastcolumn For Z = 1 To Lastrow For y = 1 To Lastcolumn If ThisWorkbook.Sheets("лист1").Cells(Z, 1) = x And ThisWorkbook.Sheets("лист1").Cells(Z, y) > 0 And IsNumeric(ThisWorkbook.Sheets("лист1").Cells(Z, y)) Then ThisWorkbook.Sheets("лист2").Cells(5, y).Interior.Color = RGB(240, 150, 0) y = y + 1 Exit For End If Next y Next |
Пример в файле.