Ссылка на ячейку как переменную в диапазоне (). Выберите

Question

Я копирую и вставляю данные в блоки ячеек, которые перемещаются по электронной таблице регулярными блоками для каждого бренда - поэтому я пытаюсь создать переменную, связанную с номером бренда, но получаю эту ошибку.

Надеюсь, простой, надеясь, что кто-нибудь может помочь!

Dim StartCell1 As String
Dim BrandNumber As Integer
Dim DblQuote As String

StartCell1 = vbDblQuote + "B" + CStr((3 + (27 * (BrandNumber - 1)))) + vbDblQuote

BrandNumber = 1

Range(StartCell1).Select

Ошибка времени выполнения «1004»:
Метод 'Range' объекта '_Global' не выполнен

Answer 1

Dim StartCell  As Range
Dim BrandNumber As Integer
BrandNumber = 1
set StartCell = Range("B" & (3 + (27 * (BrandNumber - 1))))

Excel автоматически преобразует число, возвращаемое (3 + (...) в строку. Я создал переменную объекта для указания на startcell, чтобы вы могли просто скопировать ее в пункт назначения в одну строку - этоскопировал бы его в А2, например

StartCell.Copy Range("a2")   

Никогда не использовать Select Как избежать использования Select в VBA