Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос для очистки данных массива начиная с пустого ряда
 
Ребят не подскажете как правильно написать  макрос для удаления значений в массиве ("C4-U48") начиная с пустого ряда в колонке C? Я нуб пока.  

Range("C4-U48").Select    
Selection.ClearContents
 
пример вашего пустого(непустого ряда) , а то пока непонятно..

и в файле иксель пожалста
Живи и дай жить..
 
Файлы будут ложиться в эту таблицу другим макросом, в котором будет задан размер этой таблицы. мне необходимо, чтобы пустые ячейки после этого ClearContent-ились. То есть если в ряду С пустое Blank то до конца таблицы ClearContent
Изменено: Riccoromeo - 28 Апр 2015 11:15:15
 
при условии, что в "С" текстовый значения:
   
Код
Range(Cells(WorksheetFunction.Match("zzz", Cells(1, 3).EntireColumn) + 1, 3), Cells(1).SpecialCells(xlLastCell)).ClearContents
Живи и дай жить..
 
А чтобы все пустые очищал в диапазоне как?
Код
Sub ClearContents()
Dim c As Range
Dim d As Integer

Set c = Range(B3, U48 )

For Each Сell In c
If d = 0 Then d.cell.ClearContents
Next d
End Sub
   
Что-то вроде этого только не пашет (((((
 
а зачем очищать пустые?
от чего?
Живи и дай жить..
 
Просто надо очистить их. Это необходимо потому что туда подтягиваются форматы и нулевые значения из другого макроса. Зачем это не важно, важно именно как это можно сделать.
 
Можно даже без этого условия, просто если есть в таблице "B3-U48" бланк ячейки чтобы они КлирКонтентились
 
Если бы пример был грамотно составлен, можно было и не спрашивать про условия.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Riccoromeo, исправьте свой # 5 - код следует оформлять соответствующим тегом. Да и пустые строчки можно убрать...
Страницы: 1
Читают тему (гостей: 1)