GBKEE

¦^´_ 1# 518587
A¦C±q0~10µ§¸ê®Æ§PÂ_¤@¦¸¡A¬ÝB¦C­È¬O§_³£¤¶¦b©ó5~6¤§¶¡¡A
¦pªG¬O¡A±N­È¨ú0 §_¡A«h­ì­È§e²{, ¦p¦ó§e²{??

GBKEE

¦^´_ 4# 518587
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim E As Range, xMax As Single, xMin As Single
   
4.     With Range("A:A")
   
5.         .Cells.Replace "0", "=KKK", xlWhole
   
6.         With .SpecialCells(xlCellTypeFormulas, xlErrors)
   
7.             .Value = 0
   
8.             For Each E In .Areas
   
9.                 With E.Resize(11).Offset(, 1)
   
10.                     xMax = Application.WorksheetFunction.Max(.Cells)
    
11.                     xMin = Application.WorksheetFunction.Min(.Cells)
    
12.                     If xMin >= 5 And xMax <= 6 Then
    
13.                         .Offset(, 1) = 0
    
14.                     Else
    
15.                         .Offset(, 1) = .Value
    
16.                     
    
17.                     End If
    
18.                 End With
    
19.             Next
    
20.         End With
    
21.     End With
    
22. End Sub

½Æ»s¥N½X