个人觉得比较困惑

lvyajuan1985

个人觉得比较困惑，我不知道怎么实现

pureshadow

猜了一下：

1. Sub Sample()
   
2. Dim MyRow As Long
   
3. Dim MyRng As Range
   
4. Dim a
   
5. For Each MyRng In Range("a1:a3")
   
6.     If MyRng <> "" Then
   
7.         a = MyRng
   
8.         MyRow = MyRng.Row
   
9.         Exit For
   
10.     End If
    
11. Next
    
12.     Range("a1:a3").ClearContents
    
13.     Cells(MyRow, 1) = a
    
14.     For MyRow = MyRow + 3 To 400 Step 3
    
15.         Cells(MyRow, 1) = Application.Ceiling(Cells(MyRow - 3, 1), 20)
    
16.     Next
    
17. End Sub
    

复制代码

lvyajuan1985

这个是什么啊？不明白

silenthunter

lvyajuan1985 发表于 2013-1-2 13:39
这个是什么啊？不明白

楼上的人帮你用VBA解决，我也是一样的思路。套用公式我也不会。

pureshadow

楼主的要求纯函数无法解决，需要和技巧操作联合起来：