VBA中用firstRng变量替换代码中列标"A"时报类型不匹配如何解决

错误原因 #

• Cells的第二个参数仅支持传入整数列号或字符串格式的列名，你传入了Range类型的firstRng变量，参数类型不匹配所以抛出错误
• 后续Range(firstRng & lMaxRows + 1).Select的写法同样错误，Range对象无法直接和数字做字符串拼接

修正方案 #

方法1：直接用Range对象的属性操作（推荐，无需拼接字符串） #

直接通过firstRng的内置Cells属性定位对应行，修正后完整代码如下：

Dim entireRange As Range
Dim firstRng As Range
Dim secondRng As Range
Dim lMaxRows As Long ' 建议提前声明变量，避免隐式声明带来的异常

Set entireRange = Range("A2:C2")
Set secondRng = Range("B2")
Set firstRng = Range("A:A")

' 无需选中再复制，直接调用Copy方法更稳定
entireRange.Copy
lMaxRows = firstRng.Cells(Rows.Count, 1).End(xlUp).Row
' 直接定位到目标单元格，无需拼接字符串
firstRng.Cells(lMaxRows + 1, 1).PasteSpecial

' 也可以用更简洁的写法省略Paste步骤，运行效率更高：
' entireRange.Copy Destination:=firstRng.Cells(lMaxRows + 1, 1)

方法2：提取列名/列号拼接（适合需要字符串参数的场景） #

如果一定要用原有写法的逻辑，可以先从firstRng中提取列号/列名再传入：

' 提取列号的写法
lMaxRows = Cells(Rows.Count, firstRng.Column).End(xlUp).Row
Cells(lMaxRows + 1, firstRng.Column).Select

' 提取列名的写法
Dim colName As String
colName = Split(firstRng.Address, "$")(1)
lMaxRows = Cells(Rows.Count, colName).End(xlUp).Row
Range(colName & lMaxRows + 1).Select

内容的提问来源于stack exchange，提问作者Red