­ã´£³¡ªL

Sub TEST()
With [B3:B79]
¡@¡@¡@.Formula = "=IF(C3="""","""",3^(1-COUNT(MATCH(C3,AA$2:AA$500,))))"
¡@¡@¡@.Value = .Value
End With
[D1] = Now
End Sub

­ã´£³¡ªL

¦^´_ 5# RCRG


=IF(C3="","",3^COUNT(MATCH(C3,AA$2:AA$500,)))
=IF(C3="","",IF(COUNT(MATCH(C3,AA$2:AA$500,)),3,1))
=IF(C3="","",IF(ISNA(MATCH(C3,AA$2:AA$500,)),1,3))

­ã´£³¡ªL

¦^´_ 7# RCRG


´£¨Ñªº¬O¤u§@ªí¤½¦¡, ­Y­n¼g¨ìVBA¤¤, ¹J¦³"??"¥]ÂЪº¤å¦r, ³£¶·¦A¥[¤@¼h""??"", ³o¬O³q«h,
¤]¥i¥ý¨Ï¥Î¿ý»s¦A¶K¤J!

­ã´£³¡ªL

¦^´_ 9# RCRG


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
¡@¡@¡@If Not Intersect([AA2:AA500], .Cells) Is Nothing Then
¡@¡@¡@¡@¡@With [Sheet2!B3:B79]
¡@¡@¡@¡@¡@¡@¡@¡@.Formula = "=IF(C3="""","""",3^COUNT(MATCH(C3,AA$2:AA$500,)))"
¡@¡@¡@¡@¡@¡@¡@¡@.Value = .Value
¡@¡@¡@¡@¡@End With
¡@¡@¡@¡@¡@[Sheet2!D1] = Now
¡@¡@¡@End If
End With
End Sub

­ã´£³¡ªL

¦^´_ 11# RCRG


¤½¦¡¤Îµ{¦¡¤£¬O»IÃĶK¤F´N¥Î, ¥ý¥h¤F¸Ñ¤@¤U, ¦³°ÝÃD¸ÕµÛ¥h­×§ï¦A´ú¸Õ¬Ý¬Ý~~

­ã´£³¡ªL

¦^´_ 13# RCRG


Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

¬Ý¤@¤U¨âªÌ¤£¦P³B, ¥i°Ñ¦ÒVBE»¡©ú~~¨Æ¥ó~~