Прошу вашей помощи.
Пример:
В Листе "Основная таблица" колонка "B" Имеет произвольные значения.
Значения в колонке "E" совпадают с наименование листов.
Если значение в колонке "E" = Имя листа, то копируй значение из колонки "B" и вставляй в в листы Карта1, Карта2..начиная с ячейки "С" и ниже)
Пример2 Во вложении.
П.С. Спасибо .
На основе предыдущего кода, мои попытки что-то подправить под задачу выше не дали результатов((.
Код |
---|
s = 8 e = 23 On Error Resume Next With Worksheets("Основная таблица") Do While Not IsEmpty(.Cells(s, 15)) Worksheets(.Cells(s, 15)).Cells(e, 1) = .Cells(s, 2) If Err > 0 Then Exit Do Else s = s + 1 e = e + 1 Loop End With Application.ScreenUpdating = True |