在Range（）中将单元格引用为变量

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'：
    对象“ _Global”的方法“范围”失败

Answer 1

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

Excel会自动将（3 +（...）返回的数字转换为字符串。 我创建了一个对象变量以指向startcell，因此您可以将其复制到一行中，例如，将其复制到A2

StartCell.Copy Range("a2")   

从不使用Select How To Avoid using Select in VBA