Прибавление значения ячеек к ячейкам

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

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

Прибавление значения ячеек к ячейкам (Макросы/Sub)

m1skal1to

Дата: Воскресенье, 20.12.2020, 17:17 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Здравствуйте, форумчане! Не силён в VBA.
Пожалуйста, подскажите:
Как к ячейке прибавлять значение?
Код:
Range("B12").Select 'Прибавляем 9
Следующая строка должна получиться:
Range("B21").Select
И так нужно создать 100 строк каждый раз прибавляя к ячейке 9.

P.S. Обратился к своему мозгу и он выдал только Range("B12"+9).Select, но как-то не сработало

P.S.S. Это лишь малая часть моей задачи, я бы и так прописал 100 строк в ручную

Спасибо!

Ответить

Kuzmich

Дата: Воскресенье, 20.12.2020, 18:02 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2003

[vba]

Код

Sub Plus9()
Dim i As Long
  For i = 12 To 100 Step 9
    Cells(i, "B") = "Ячейка B" & i
  Next
End Sub

[/vba]

Ответить

m1skal1to

Дата: Воскресенье, 20.12.2020, 19:11 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Kuzmich, не понимаю как интегрировать в код.
Сам код, для понимания - это макрос для обработки данных скопированных с сайта, удаляю не нужные мне строки и раскидываю по ячейкам.
Первая обработка данных:
[vba]

Код

Sub Обработка()
    Range("B3").Select
    Selection.ClearContents
    Range("B4").Select
    Selection.ClearContents
    Range("B5").Select
    Selection.Copy
    Range("D2").Select
    ActiveSheet.Paste
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B6").Select
    Selection.ClearContents
    Range("B7").Select
    Selection.Copy
    Range("C2").Select
    ActiveSheet.Paste
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B8").Select
    Selection.ClearContents
    Range("B9").Select
    Selection.ClearContents
    Range("B10").Select
    Selection.ClearContents
End Sub

[/vba]

Вторая выглядит точно также, только к каждой ячейке прибавляется 9 (таким образом я делаю не по одной странице, а сразу вставляю все).