Нахождение и удаление данных из массива

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нахождение и удаление данных из массива (Макросы/Sub)

Mexo

Дата: Понедельник, 06.11.2017, 08:03 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Здравствуйте! Помогите построить макрос. Нужно на листе2 найти строку с данными и удалить их. Строка должна начинаться со значения идентичного значению в ячейке А2 на листе1.
Написал такой код в общем модуле:
[vba]

Код

Sub RemoveDate(sStr As String)
Dim Range As Range
Dim a()
Dim b As Long
Dim c As Long
    With Лист2
        b = .UsedRange.Rows.Count
        a = .Range("A:A" & b).Value
            For c = 1 To b
              If a(c, 1) = sStr Then
                    .Range(Cells(c, 1), Cells(c, 4)).ClearContents
                Exit Sub
              End If
            Next c
    End With
End Sub

[/vba]

И такой макрос в модуле листа:
[vba]

Код

Sub Remove()
Call RemoveDate(Range("A2").Value)
End Sub

[/vba]
Но выдает ошибку.
И второй вопрос - является ли такой код оптимальным для этой цели, или можно как то по другому сделать без циклов?

К сообщению приложен файл: ___.xlsm (19.6 Kb)

Ответить

Gustav

Дата: Понедельник, 06.11.2017, 08:24 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2731

Репутация: 1132 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Надо "A1:A" во фрагменте: Range("A:A" & b).Value

МОИ: Ник, Tip box: 41001663842605

Ответить

Wasilich

Дата: Понедельник, 06.11.2017, 17:32 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата Mexo, 06.11.2017 в 08:03, в сообщении № 1 ()

Нужно на листе2 найти строку с данными и удалить их.

Может так?
[vba]

Код

Sub www()
  Dim x$, b&, c&
  x = Range("A2")
  With Sheets("Лист2")
      b = .UsedRange.Rows.Count
      For c = 1 To b
        If .Cells(c, "A") = x Then
         .Range(.Cells(c, 1), .Cells(c, 4)).ClearContents
        End If
      Next c
  End With
End Sub

[/vba]

Ответить

Mexo

Дата: Вторник, 07.11.2017, 07:16 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Заработало, Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нахождение и удаление данных из массива (Макросы/Sub)

Страница 1 из 1
1