Excel VBA实现A1:A10000从10000到1倒序填充问题求助

你的代码逻辑本身是对的，但无法运行大概率是以下几个原因，对应解决方法如下：

可能的问题及修复方案 #

• 工作表名称不匹配
  确保工作簿里确实存在名为Sheet1的工作表。如果工作表名称有改动（比如中文名称或自定义名称），代码会因找不到目标表报错。可以改用工作表代号（比如Worksheets(1)，代表第一个工作表）规避名称问题：

  For i = 10000 To 1 Step -1
      Worksheets(1).Cells(i, 1) = i
  Next i
  

• 工作表被保护
  如果Sheet1处于保护状态且未允许编辑单元格，写入操作会被阻止。先解除保护（有密码需添加密码参数）：

  Worksheets("Sheet1").Unprotect ' 有密码则写：Unprotect Password:="你的密码"
  For i = 10000 To 1 Step -1
      Worksheets("Sheet1").Cells(i, 1) = i
  Next i
  Worksheets("Sheet1").Protect ' 完成后可重新保护
  

• 宏安全限制
  检查Excel宏安全设置，确保已启用宏（文件需另存为.xlsm格式，再在信任中心开启宏权限）。

更高效的写法（推荐） #

循环逐个写入单元格效率极低，尤其是10000行数据，推荐用数组一次性写入，性能提升数十倍：

Dim arr() As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 绑定目标工作表

ReDim arr(1 To 10000, 1 To 1)
For i = 1 To 10000
    arr(i, 1) = 10001 - i ' 实现A1=10000、A2=9999...A10000=1的效果
Next i

ws.Range("A1:A10000") = arr ' 一次性批量写入

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