Question

excel用宏表达: 当a1=a2时,b1为1,否则为0；当a2=a3时,b2为1，...一直循环到A5000？

excel用宏表达: 当a1=a2时,b1为1,否则为0；当a2=a3时,b2为1，...一直循环到A5000
强调：只用宏，不要用公式！！！

Answer 1

sub 宏1()
dim i

for i=1 to 5000

cells(i,2) = iif( cells(i,1)=cells(i+1,1), 1, 0)

next i

end sub

追问

感谢感谢！ 但是这样运行下去好卡（尤其是把那个0换成空格的时候）

追答

sub 宏1()
dim arr,i
arr=activatesheet.usedrange
for i=1 to ubound(arr)-1
arr(i,2) = iif( arr(i,1)=arr(i+1,1), 1, "")
next i
activatesheet.usedrange=arr
end sub

追问

好像运行错误（excel2007）

追答

遇到错误请提供两个图，一是报错的图让我看看计算机说是什么错，二是报错后点【调试】有黄色条的图让我看看错在哪里

追问

谢谢！辛苦了！

追答

单词打错了，应该改为
activesheet
修改正确后A和S会自动大写为ActiveSheet

追问

我用你第一个修改了一下好像可以的！

Sub 宏2()

Dim arr, i

For i = 1 To Range("a5000").End(xlUp).Row

Cells(i, 2) = IIf(Cells(i, 1) = Cells(i + 1, 1), " ", 1)

Next i

End Sub