Удаление пустых ячеек в MS Excel

[iKarma]

Всем доброго времени суток =) Как сделать удаление пустых ячеек в MS Excel?
Я сделал, но у меня удаляются полностью строки, а мне надо чтобы только определённые пустые ячейки.

'удаляем пустые строки
For i = 1 to FinalRow 
  If (objSheetNewData.Range("B" & i).Value = "") And (objSheetNewData.Range("C" & i).Value = "") Then
    objSheetNewData.Range("B" & i).EntireRow.Delete
    'i = i - 1
  End If
Next

[Казанский]

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=xlToLeft 'со сдвигом влево

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=xlUp 'со сдвигом вверх

И проходите цикл назад, чтобы не задумываться о том, что строки меняют номер после удаления:

For i = FinalRow to 1 step -1

[iKarma]

Сообщение от Казанский

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=xlToLeft 'со сдвигом влево

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=xlUp 'со сдвигом вверх

И проходите цикл назад, чтобы не задумываться о том, что строки меняют номер после удаления:

For i = FinalRow to 1 step -1

Не работает моего скрипта VBS =( При добавлении в мой код ничего не происходит

[iKarma]

Нашёл вот такую вот функцию - она работает

Sub DelEmpty()
   'Matt Neuburg, PhD  http://www.tidbits.com/matt Aug 3, 1998
   Selection.SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)
End Sub

но только для VBA, а как для VBS её переписать?

[IgorGO]

а может просто так:

Sub DelBlankCells()
  ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
End Sub

с xlShiftToLeft прижать все можно влево, а не вверх, как в примере.

[Казанский]

Сказали бы сразу, что VBS. Дело в том, что компилятор VBS не знает экселевских констант, их надо заменять на значения либо определять:

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=-4159 'xlToLeft 'со сдвигом влево

objSheetNewData.Range("B" & i).resize(,2).delete Shift:=-4162 'xlUp 'со сдвигом вверх

Sub DelEmpty()
   'Matt Neuburg, PhD  http://www.tidbits.com/matt Aug 3, 1998
   Selection.SpecialCells(4).Delete (-4162)
End Sub