Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Ошибка 1004 при вставке текста в объединенную ячейку
 
Помогите когда пытаюсь скопировать текст и вставить он выдает ошибку. приложил фото.Ошибка Обьединения происходит когда пытаюсь вставить текст
Снимок.JPG (40.76 КБ)
Снимок.JPG3.JPG (124.18 КБ)
 
?
Ну ... и вот так должно быть с объединенными ячейками
?

А в чем вам нужна помощь ?
 
Раньше когда вставлял все норм было, а теперь выдает ошибку при вставке текста
И восклицательный знак на самом значке Excel,Я в этом не силен
мне нужно чтоб больше ошибок не было и как это сделать?
Изменено: Ganster0041 - 13 Фев 2020 01:59:15
 
Если у вас есть, например, объединенная ячейка "С5" ("С5:Е8"), то попробуйте это:
Код
Sub clop_plank()
    With ThisWorkbook
        .Activate
        With .Worksheets("List1")
            .Select
            With .Range("C5")
                If .MergeCells Then .MergeArea.UnMerge
                .Select
            End With
            ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
            Application.CutCopyMode = False
            'With .Range("B11:C14").Interior
            '    .Pattern = xlSolid
            '    .PatternColorIndex = xlAutomatic
            '    .Color = 65280
            '    .TintAndShade = 0
            '    .PatternTintAndShade = 0
            'End With
            .Range("B22").Select
        End With
    End With
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх