Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Как удалить в ячейках пустую строку в MS EXCEL 2003

Автор Saken, 07.02.2012, 21:04

« назад - далее »

Saken

Всем привет! Ест проблема!
Существуют Excel->Лист1->Range("A10:A1737")
каждый ячейка    A10=                   
                                Германия
                 
                         A11=                   
                                Франция
                 
                         .....                         
                         A1737=                   
                                ..........
Надо удалить в ячейках 1 и 3 строка и должны оставаться 2 строка т.е:
                         A10=Германия
                         A11=Франция
                         .....                         
                         A1737=..........

Saken

Если не понятно вот файл:

MCH

Sub www()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("A1:A1737")
    r = Replace(Replace(Application.Trim(Replace(Replace(r, " ", "^"), vbLf, " ")), " ", vbLf), "^", " ")
Next r
Application.ScreenUpdating = True
End Sub

Saken

Цитата: MCH от 07.02.2012, 21:36
Sub www()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("A1:A1737")
    r = Replace(Replace(Application.Trim(Replace(Replace(r, " ", "^"), vbLf, " ")), " ", vbLf), "^", " ")
Next r
Application.ScreenUpdating = True
End Sub

Код не помогла!

MCH

Что именно "не помогла"?

Saken