excle中隐藏下数据不稳定的困惑

姬长运

请查看附件，

lxw6

1. 先解释你不稳定的原因。
一般情况下，往下拖动公式时，不会覆盖掉隐藏的单元格。有个别情况可能会有问题：
（1） 存在其他筛选条件时。
最好先清除筛选，然后筛选空白值，再复制公式
（2） 未打最新补丁。
office2003打sp3、office2007打sp3之后，都不会有这个问题。

2. 方法有很多。附件是用宏自动解决的

1. Sub aa()
   
2.     LstL1 = Cells(Rows.Count, 1).End(xlUp).Row
   
3.     arr1 = Range("c1:e" & LstL1)
   
4.     Dim arr2()
   
5.     ReDim arr2(1 To LstL1, 1 To 1)
   
6.     arr2(1, 1) = arr1(1, 3)
   
7.     For i = 2 To LstL1
   
8.         If arr1(i, 3) > 0 Then
   
9.             arr2(i, 1) = arr1(i, 3)
   
10.         Else
    
11.             arr2(i, 1) = arr1(i, 1)
    
12.         End If
    
13.     Next i
    
14.     Range("e1:e" & LstL1) = arr2
    
15. End Sub
    

复制代码

姬长运

{:soso_e179:}