excel中用宏选择第一行的1到n行

Question

题目：如果C1=1，那么A1=成功。同理C2=1，那么A2=成功.一直到Cn=1,那么An=成功，宏中的程序怎么写啊？谢谢了！

Answer 1

Sub test()
For I = 1 To Range("C65536").End(xlUp).Row
If Cells(I, 3) = 1 Then Cells(I, 1) = "成功"
Next I
End Sub

这样，不管你的n是多少，只要C列中又等于1的，A1都显示成功
Range("C65536").End(xlUp).Row表示的是C列中，最后一个非空单元格

Answer 2

Sub test()
Dim n As Integer
For n = 1 To 10 '10 为第10行,根据需要调整
If Cells(n, 3) = 1 Then Cells(n, 1) = "成功"
Next
End Sub本回答被提问者采纳

Answer 3

需要用宏么？公式就可以了吧，公式的计算速度是快于vba的
A1填充公式
=if(C1=1，"成功","")
向下填充公式

Answer 4

for each rng in range("C1:Cn")
if rng=1 then
rng.offset(0,-2)="成功"
endif
next