GBKEE

¦^´_ 2# peo.han
¸Õ¸Õ¬Ý
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh1 As Worksheet, Rd As String, x1Row As Integer
   
4.     Set Sh1 = Sheet1
   
5.     With Sheet2
   
6.         Rd = .Range("C:C").Address(, , , 1, 1)
   
7.     End With
   
8.     With Sh1
   
9.         x1Row = .Range("D65536").End(xlUp).Row
   
10.         With .Range("e11:e" & x1Row)
    
11.             .Cells = "=IF(D11="""","""",COUNTIF(" & Rd & ",D11))"
    
12.             '.Value = .Value '¤½¦¡Âର¼Æ­È
    
13.             .Select
    
14.         End With
    
15.     End With
    
16. End Sub

½Æ»s¥N½X