Макрос для записи значений только в пустые ячейки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для записи значений только в пустые ячейки (Макросы/Sub)

kudim94

Дата: Понедельник, 28.11.2016, 15:45 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

Всем привет! Я пытаюсь сделать макрос, который будет записывать значения только в пустые ячейки столбца AP. Столбцы при этом должны быть отфильтрованы по определенному признаку.

Код на данный момент выглядит так:
[vba]

Код

  For i = 1 To LastRow
    If Cells(i, "AP") = "" Then
    If Cells(i, "AP").SpecialCell(xlCellTypeVisible) Then
  ActiveSheet.UsedRange.Cells(i, "AP").SpecialCells(xlCellTypeVisible) = "товар 123"
    End If
    End If
    Next i

[/vba]
Однако при такой записи значением "товар 123" заполняются все ячейки таблицы и выскакивает ошибка о нехватке памяти. Подскажите, пожалуйста, в чем может быть дело.

Ответить

sboy

Дата: Понедельник, 28.11.2016, 16:04 | Сообщение № 2

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Без файла наверно так
[vba]

Код

For i = 1 To LastRow
    If Cells(i, "AP") = "" Then
    If Cells(i, "AP").SpecialCell(xlCellTypeVisible) Then
       Cells(i, "AP").Value = "товар 123"
    End If
    End If
    Next i

[/vba]