В продолжение темы Преобразование таблицы, прошу помочь с формулой (если это можно сделать формулой), чтобы удалялись (или не добавлялись изначально) строки, значение которых в параметрах равно нулю. В примере - Таблица 2, столбец E покрашен желтым, указал, какие строки надо удалить. Возможно, проще будет сразу брать таблицу 2 из примера и работать с ней, чем добавлять что-то в формулу при преобразовании таблицы.
В продолжение темы Преобразование таблицы, прошу помочь с формулой (если это можно сделать формулой), чтобы удалялись (или не добавлялись изначально) строки, значение которых в параметрах равно нулю. В примере - Таблица 2, столбец E покрашен желтым, указал, какие строки надо удалить. Возможно, проще будет сразу брать таблицу 2 из примера и работать с ней, чем добавлять что-то в формулу при преобразовании таблицы.chikko
Sub tghcn() Dim rng As Range With Range("d11:d26") Set rng = .Find("", , LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then Do rng.EntireRow.Delete Set rng = .FindNext() Loop While Not rng Is Nothing End If End With End Sub
[/vba]
[vba]
Код
Sub tghcn() Dim rng As Range With Range("d11:d26") Set rng = .Find("", , LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then Do rng.EntireRow.Delete Set rng = .FindNext() Loop While Not rng Is Nothing End If End With End Sub
DJ_Marker_MC, спасибо, но в реальном файле, который я показать не могу больше объектов и больше параметров с разными названиями, поэтому по первой букве не пройдет. Nic70y, как заметил уважаемый DJ_Marker_MC, требуется удалять только нулевые параметры. Объект всегда остается.
DJ_Marker_MC, спасибо, но в реальном файле, который я показать не могу больше объектов и больше параметров с разными названиями, поэтому по первой букве не пройдет. Nic70y, как заметил уважаемый DJ_Marker_MC, требуется удалять только нулевые параметры. Объект всегда остается.chikko