Question

EXCEL在VBA怎么输入带变量公式？

Dim a As Double
a = 1
for i=1 to 10
Cells(a, 9) = "=COUNTIF(Ha+1:Ha+9,Ha)"

a=a+1
next

Cells(a, 9) = "=COUNTIF(Ha+1:Ha+9,Ha)"里把a换成数字就行，但是我要做循环，怎么改？

Answer 1

Dim a As Double
a = 1
For i = 1 To 10
Cells(a, 9) = "=COUNTIF(H" & a + 1 & ":H" & a + 9 & ",H" & a & ")"

a = a + 1
Next

追问

确实可以，谢谢。循环10000次太慢，我已经关闭屏幕刷新了，有没有什么好办法？

追答

循环就是比较慢