excel 筛选数据写入最后一个空行
各位高手，小弟有下面这样一个问题。
excel表格有Ａ、Ｂ、Ｃ三列
Ａ列是标号，Ｂ列是内容、Ｃ列是筛选结果
请问怎么样写才能根据条件，筛选出Ｂ列的内容，然后把相对应的Ａ列标号顺序写入Ｃ列？
我现在是这样写的
Dim h, m, n As Long
m = [a65536].End(xlUp).Row
n = [c65536].End(xlUp).Row
For h = m To 1 Step -1
If Cells(h, 2) = "OK " Then
Cells(n, 3) = Cells(h, 1)
End If
Next h
这样写肯定是错的。运行的时候总是把筛选结果写在Ｃ列的同格。最后只出现了一个结果。。。。
主要是想知道怎么在Ｃ列顺序输入数据。。。
谢谢大家！
[解决办法]
dim rng as Range
set rng=Range( "C1 ")
for .....
..
if true then set rng=rng.offset(1,0)
next
