- ©«¤l
- 19
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-8-19
- ³Ì«áµn¿ý
- 2016-12-17
|
[µ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 |
|