当前位置: 代码迷 >> VBA >> excel 筛选数据写入最后一个空行解决方法
  详细解决方案

excel 筛选数据写入最后一个空行解决方法

热度:9063   发布时间:2013-02-26 00:00:00.0
excel 筛选数据写入最后一个空行
各位高手,小弟有下面这样一个问题。
excel表格有A、B、C三列
A列是标号,B列是内容、C列是筛选结果
请问怎么样写才能根据条件,筛选出B列的内容,然后把相对应的A列标号顺序写入C列?
我现在是这样写的
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
这样写肯定是错的。运行的时候总是把筛选结果写在C列的同格。最后只出现了一个结果。。。。
主要是想知道怎么在C列顺序输入数据。。。
谢谢大家!

------解决方案--------------------------------------------------------
dim rng as Range
set rng=Range( "C1 ")
for .....
..
if true then set rng=rng.offset(1,0)
next
  相关解决方案