Опять Вы со своим "суперкодом" )
1. Учитесь читать то, что создали. Для чего первые две строки?
Цитата |
---|
Worksheets("Лист1").Range("A8") = Worksheets("Лист2").Range("A1") Worksheets("Лист1").Range("A8") = Worksheets("Лист2").Range("A2") Worksheets("Лист1").Range("A8") = Worksheets("Лист2").Range("A3") |
2. Использовать переменную вместо постоянного обращения к листу:
Код |
---|
Set r = Worksheets("Лист1").Range("A8") |
После использования диапазона
3. В коде три одинаковых блока. Можно:
- или добавить цикл
For = 1 To 3:
- или вынести в отдельную процедуру и обратиться к этой процедуре три раза, передавая в нее номер строки.
Не только ждите помощи, но и
сами читайте/ищите/разбирайтесьP.S. Пролистал вправо код... Какой смысл в этом множестве строк? Почему просто не задать для текста ячейки 2 параметра?
Код |
---|
With Worksheets("Лист1").Range("A8")
.Characters(Len - длина текста из P).Font.Underline = True
.Characters(Len - длина текста из P)).Font.Italic = True
End With |
И это все для того, чтобы отделить форматированием значение из столбца P... Нельзя сразу отформатировать ячейку и не морочиться со шрифтом?