ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

³]©w¤u§@ªíÄæ¦ìÀx¦s®æ¥[¤W " ' "

³]©w¤u§@ªíÄæ¦ìÀx¦s®æ¥[¤W " ' "

¨Ò : ¦p¦ó¦bA10..A65536¤ÎB10:B65536 Ä椤©Ò¦³Àx¦s®æ¦p¿é¤J¼Æ­È«á«öEnter
       ©ÎÂ÷¶}«á¦Û°Ê¦b³Ì¼Æ¦r«e¥[¤W '  ªº²Å¸¹Åܦ¨¤£¬O¼Æ­È¡C  
                                                      
     ÁÂÁ¦U¦ì¤j¤j

A10:A65536®Ø¿ï
Àx¦s®æ®æ¦¡¡÷¤å¦r
B10:B65536®Ø¿ï
Àx¦s®æ®æ¦¡¡÷¤å¦r
¿ý»s¥¨¶°§Y¥i.....¤£ª¾¤j¤j­nªº¬O§_¬O³o­Óµª®×...

TOP

¦^´_ 1# agwhk


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For gha = 10 To ActiveSheet.Range("a10").CurrentRegion.Rows.Count
        If Cells(gha, 1) <> "" Then Cells(gha, 1) = "@" & Cells(gha, 1)
    Next
End Sub

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

ÁÂÁ ¦U¦ì¤j¤j ©ú¥Õ¤F!

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD