Hsieh

¦^´_ 1# myleoyes

1. Sub aa()
   
2. Dim A As Range
   
3.     Range("A1:A2") = ""
   
4.     Z = Application.InputBox("½Ð¿é¤J´M§ä¦WºÙ", "¶µ¥Ø¦WºÙ", "¬ì§Þ", Type:=2)
   
5.     If Z = 0 Or Z = "" Then End
   
6.     Range("A1") = Z
   
7.     For Each A In Cells.SpecialCells(xlCellTypeComments)
   
8.        If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
   
9.     Next
   
10.     Range("A2").Value = cnt
    
11. End Sub

½Æ»s¥N½X