VBA Excel：如何将Range函数中的列字母替换为列索引

你原来的错误在于Columns(14).Select是执行选中列的操作，并非返回可用于拼接的列地址字符串，所以无法通过这种方式构造Range对象。以下是几种正确的写法：

方法1：使用Cells定义Range的起止单元格 #

这是最直观且不易出错的方式，通过指定行号和列索引来定位单元格：

Sheet5.Range(Sheet5.Cells(2, 14), Sheet5.Cells(24, 14)).Value = Sheet1.Range("B9").Value

注意必须给Cells加上Sheet5前缀，避免默认引用活动工作表，导致逻辑错误。

方法2：基于Columns对象缩小行范围 #

先定位到第14列，再指定要操作的行区间：

Sheet5.Columns(14).Rows("2:24").Value = Sheet1.Range("B9").Value

或者用Offset和Resize组合（从第2行开始，取23行数据，对应2到24行）：

Sheet5.Columns(14).Offset(1).Resize(23).Value = Sheet1.Range("B9").Value

方法3：拼接列地址字符串（不推荐，仅作参考） #

如果一定要用字符串拼接的方式，需先获取列的地址标识：

Dim colName As String
colName = Split(Sheet5.Columns(14).Address, "$")(1)
Sheet5.Range(colName & "2:" & colName & "24").Value = Sheet1.Range("B9").Value

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