Страницы: 1
RSS
Копирование ячейки так как отображается, Копировать ячейку то что видно
 
Всем привет!
Вообщем ситуация, выбрал в формате ячейки "0+00", тоесть когда пишу =123, отображается 1+23. Но теперь нужно чтобы в ячейке было написано именно "1+23", но перебивать вручную очень долго. При копировании и вставки значения вставляет "123". Как сделать чтобы в несколько действий скопировать несколько десяткой ячеек?
 
Если всегда трехзначные числа вбиваете, то можно рядом в столбце формулу:
Код
=ЛЕВСИМВ(A1;1)&"+"&ПРАВСИМВ(A1;2)

И протянуть вниз.
Получите текстовые строки вида "1+23"
Потом из этого столбца копировать-вставлять.
Кому решение нужно - тот пример и рисует.
 
Доброе время суток
Макросом, для примера
Код
ActiveCell.Value = ActiveCell.Text

Успехов.
 
Макрос работает со столбцом "A", обрабатывает строки с 1 до последней, в которой есть данные.
Макрос изменяет ширину столбца "A", чтобы данные полностью помещались (чтобы не было символов #).
Код
Sub Вставить_видимое()
    Dim arr(), lr As Long, i As Long
    Application.ScreenUpdating = False
    Columns("A").AutoFit
    Columns("A").ColumnWidth = Columns("A").ColumnWidth + 5
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    ReDim arr(1 To lr, 1 To 1)
    For i = 1 To lr
        arr(i, 1) = Cells(i, "A").Text
    Next
    Columns("A").NumberFormat = "General"
    Range("A1:A" & lr).Value = arr()
    Application.ScreenUpdating = True
End Sub
 
Пытливый, не, у меня много бывает символов.
 
Андрей VG, получилось, только переделывает по одной ячейке, как все сразу сделать?!
 
По мотивам поста 2. Можно использовать формулу, которая будет оформлять так же, как это делается форматом ячеек:
=ТЕКСТ(A1;"0+00")
 
Karataev, работает, спасибо!!!
Страницы: 1
Читают тему
Наверх