stillfish00

¦^´_ 2# 518587
¬Ý¤£À´­nºâ¬Æ»ò¡A§A´Á±æºâ§¹ªº­ÈÀ³¸Ó¬O¦p¦ó?

stillfish00

¦^´_ 5# 518587

1. Sub Test()
   
2.     Dim i, cnt
   
3.    
   
4.     With ActiveSheet.Range("C1:C28")
   
5.         .FormulaR1C1 = "=COVAR(RC[-2]:R[2]C[-2],RC[-1]:R[2]C[-1])/VARP(RC[-2]:R[2]C[-2])"
   
6.         .Value = .Value
   
7.         For i = .Count To 1 Step -1
   
8.             If Abs(.Cells(i).Value) <= 0.5 Then
   
9.                 cnt = cnt + 1
   
10.             Else
    
11.                 If cnt >= 5 Then .Cells(i + 1).Resize(cnt).Delete xlShiftUp
    
12.                 cnt = 0
    
13.             End If
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X