Отправляет email-рассылки с помощью сервиса Sendsay

Excel - вопросы и ответы

  Все выпуски  

Excel - вопросы и ответы


___________________________________________________________________________________________________________

Добрый день!

Те, кому приходилось копировать таблицы из Word в Excel сталкивались, несомненно, с такой неприятной вещью, как пустые строки в ячейках, которые потом необходимо удалять. Дело и нудное, и неинтересное.

В книге, о которой я уже неоднократно упоминал, "Хитрости Excel" Кертис Фрай приведен такой макрос:

Sub F1xWordTableInExcel97()
'Удаление лишних слияний ячеек и переноса текста во вставленной таблице
' и последующее удаление всех пустых строк, добавленных при вставке'
With Selection
.WrapText = False
.MergeCells = False
End With
Dim Rw As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeBlanks).Select
For Each Rw In Selection.Rows
If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
Selection.EntireRow.Delete
End If
Next Rw
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Скопируйте его, сохраните, а потом посмотрите как это работает - просто выделите часть таблицы (или всю), где нужно удалить пустые строки. Красота! 

 

Ну, пока все. Жду новых вопросов и сообщений! Буду благодарен за присланные интересные ссылки.

И еще. Поскольку у нас появилось много новых подписчиков, думаю будет небесполезным разместить здесь ссылку на самоучитель по Excel, с которого, собственно, все и началось - http://www.eliteclub.h10.ru/excel/excel.html

С уважением,
Александр РАСЕВ

Рассылки Subscribe.Ru
Бизнес с EliteClub
Рассылки Subscribe.Ru
Электроника, связанная с компьютерами

В избранное