VBA中好像不能这样使用R1C1样式你的代码可以修改为sheets("sheet1").[ac3].resize(190,1).value=5500
Sheets("Sheet1").Range(cells(3,29),cells(193,29)).Value=5500
Microsoft ActiveX数据对象2.8
