Удалить пустую строку в ячейке

siriusdesign Пользователь Сообщений: 35 Регистрация: 18.05.2014	#1 02.08.2014 11:38:13 Добрый день. В ячейке есть значение, но верхняя строка в ячейке пустая, как избавиться от нее ? Изменено: siriusdesign - 02.08.2014 11:38:37

Антон Пользователь Сообщений: 79 Регистрация: 07.02.2013	#2 02.08.2014 11:40:34 встать на верхнюю строчку и нажать Delete ?

Hugo Пользователь Сообщений: 23800 Регистрация: 22.12.2012	#3 02.08.2014 11:46:20 Зайти в ячейку и отредактировать.

siriusdesign Пользователь Сообщений: 35 Регистрация: 18.05.2014	#4 02.08.2014 11:52:40 там не одна ячейка, а несколько десятков тысяч

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

02.08.2014 11:56:51

siriusdesign,у Вас уже второй десяток сообщений, а Вы картинку прикладываете. Форум не по ФотоШопу, а по Excel. Только "несколько десятков тысяч" не нужно, хватит 20-30, но в РЕАЛЬНОЙ структуре

Согласие есть продукт при полном непротивлении сторон

siriusdesign Пользователь Сообщений: 35 Регистрация: 18.05.2014	#6 02.08.2014 12:04:57 приложил Прикрепленные файлы выпвпв.xlsx (10.58 КБ)

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

02.08.2014 12:20:12

выполните вот такой макрос

Код

Sub Del10()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Cells.Replace Chr(10), "", 2
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Согласие есть продукт при полном непротивлении сторон

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#8 02.08.2014 12:27:45 ну или как вариант =ПОДСТАВИТЬ(A2;СИМВОЛ(10);"";1) Лень двигатель прогресса, доказано!!!

siriusdesign Пользователь Сообщений: 35 Регистрация: 18.05.2014	#9 02.08.2014 12:29:10 Разобрался спасибо большое Изменено: siriusdesign - 02.08.2014 12:31:30

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

#10

02.08.2014 12:37:03

ПКМ по ярлыку листа - Исходный текст. В окне VBAProject ПКМ в любом месте - Insert - Module. В окне справа вставить макрос. Вернуться в Excel. Alt+F8 - выбрать нужный макрос - Выполнить

Еще вариант формулой: =ПЕЧСИМВ(A2)

З.Ы.
макросы должны быть разрешены.
ПКМ - правая кнопка мыши.

Изменено: Sanja - 02.08.2014 13:12:10

Согласие есть продукт при полном непротивлении сторон

Hugo

Пользователь

Сообщений: 23800 Регистрация: 22.12.2012

#11

02.08.2014 13:19:03

Так можно ведь и без всяких макросов - стандартной заменой заменять Ctrl + J на ничего.
Но там и как после макроса остаётся лишний символ в начале, можно его пытаться тоже такой заменой заменить, но не получилось...

Ещё вариант - выделить диапазон, затем Alt+F11, Ctrl+G, затем туда пишем

Код
x=selection.replace(vbnewline,"")

и энтер

P.S. у меня после всех вышепредложенных вариантов остаётся лишний символ в начале ячейки.
P.P.S. кроме =ПЕЧСИМВ(A2)
и

Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;СИМВОЛ(10);"";1);СИМВОЛ(13);"";1)

Изменено: Hugo - 02.08.2014 13:24:54