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

2025-03-03 06:27:44

推荐回答（4个）

回答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列中，最后一个非空单元格

回答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

回答3：

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

回答4：

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