Question

VBA运行没反应（Excel）

目的：要把第一行单元格中的公式复制到相应列下的2至100行
下面程序执行没反应，不知何故

Sub Sells()
Dim N, ROW, CLO

For N = 1 To N = 10 Step 1
Cells(1, N).Copy
For ROW = 2 To 100 Step 1
COL = N
Cells(ROW, COL).Select
ActiveSheet.Paste
Next
Next

End Sub
我知道了，呵呵
For N=1 To 10 Step 1

是我粗心了，在有限时间这位仁兄中奖了，恭喜！

Answer 1

你的有问题，我改了一下，不知道是不是你的效果。

Sub Sells()
Dim N, ROW, CLO As Integer

For N = 1 To 10 Step 1
Cells(1, N).Copy
For ROW = 2 To 100 Step 1
COL = N
Cells(ROW, COL).Select
ActiveSheet.Paste
Next ROW
Next N

End Sub