VBA动态列赋值问题求助：循环填充表格列号无法动态变更

问题分析 #

你尝试的两种写法存在以下问题：

1. 第一种写法中，Range("E3:H101").Column(Z) 是错误用法：Range.Column 属性返回的是该区域第一列的列号（此处为5，对应E列），是单一数值，并非可赋值的单元格区域，因此无法直接赋值。
2. 第二种写法的问题在于未给Cells指定工作表：Cells(3,z+4) 默认指向当前激活的工作表，而外层Range属于"Annex"工作表，跨工作表引用会导致对象不匹配，赋值失败。

正确写法 #

以下几种方式均可实现需求：

方式1：给Cells指定对应工作表

确保Cells和外层Range属于同一工作表：

Sheets("Annex").Range(Sheets("Annex").Cells(3, z + 4), Sheets("Annex").Cells(101, z + 4)).Value = Sheets("Calc").Range("I2:I100").Value

方式2：使用Resize简化区域引用

从目标起始单元格开始，向下扩展99行（对应3到101行的范围）：

Sheets("Annex").Cells(3, z + 4).Resize(99, 1).Value = Sheets("Calc").Range("I2:I100").Value

方式3：通过列号定位整列再截取目标区域

先定位目标列，再选取3到101行的子区域：

Sheets("Annex").Columns(z + 4).Range("A3:A101").Value = Sheets("Calc").Range("I2:I100").Value

注意事项 #

• 赋值时显式加上.Value属性，虽然VBA默认会读写单元格的值，但显式写法更清晰，可避免潜在的对象引用问题。
• 确认循环中z的取值范围为1到4（对应E到H列，z+4=5到8），与目标列需求一致。

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