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

[µo°Ý] ¶}±Ò¤u§@藍·|°õ¦æ¦ý¨ì¥¨¶°¸Ì«öF5·|¥¿±`°õ¦æ

[µo°Ý] ¶}±Ò¤u§@藍·|°õ¦æ¦ý¨ì¥¨¶°¸Ì«öF5·|¥¿±`°õ¦æ

¦U¦ì¦n §Ú¨Ï¥Îauto_open() ¨ç¼Æ¶i¦æ¶}±Ò¬¡­¶Ã¯¦Û°Ê¶i¦æ§ó·sªº°Ê§@¡A¦ý¬Oµ{¦¡½X¥u¦³¤@¥b°õ¦æ¥¿½T
¥t¥~¤@¥b´N¬O¬õ¦â¼Ðµùªº¨Ã¤£·|¥¿±`°õ¦æ¡A¦ý¬O¦pªG¬O¦b¥¨¶°¸Ì­±«öF5´N¯à¥¿±`°õ¦æ½Ð°Ý¬O¬°¤°»ò?


Sub auto_open()
     Call ex2
End Sub
'''''''''''''''''''''''''''''
Sub ex2() '§ó·sSheets 9 ~ 11 ªº¤é´Á

    EndRow = Sheets("Data").Range("B30000").End(xlUp).Row
   
    For YY = 9 To 11 Step 1
   
        For ZZ = 2275 To EndRow  Step 1
        
                If Sheets(YY).Range("A" & ZZ) <> Sheets("Data").Range("B" & ZZ ) Then
               
                    Sheets(YY).Range("A" & ZZ) = Sheets("Data").Range("B" & ZZ)
                    
                End If  
        Next
   
       Sheets(YY).Range("B2275:S" & Range("A30000").End(xlUp).Row).FillDown
        
    Next   

    Next
   
End Sub

¦^´_ 1# cathaylife
Sheets(YY).Range("B2275:S" & Sheets(YY).Range("A30000").End(xlUp).Row).FillDown
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

·PÁ­ì¨Ó¬O³o­Ó¤pbug!!!

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD