- ©«¤l
- 7
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-3-3
- ³Ì«áµn¿ý
- 2018-3-29
|
Dear ¤j¤j,
¦³½ÐÂI°ÝÃD·Q½Ð±Ð¦U¦ì.
(1)
B = Sheets("B¸ê®Æ®w").Range([A2], [A65536].End(xlUp))
For Each A In B
if A = 1101 Then
............(¬Ù²¤)
End If
Next A
µ{¦¡·|¤ñ¹ïA2 ~ A65536¤º ©Ò¦³ªºÀx¦sÈ , ¤£¹L¦³¨S¦³¤°»ò¤è¦¡¥i¥HÅý·íµ{¦¡¤@¤ñ¹ï¨ìif±ø¥ó¦¨¥ß®É , ´N¤£¥ÎÄ~Äò¤ñ¹ï«á±ªºÀx¦s®æ¤F?
(2)
¥Hªþ¥ó½d¨Ò¬°¨Ò.
¦bsheet1[c1]¿é¤JªÑ¸¹ , sheet1[AE2]&[AC2]¿é¤J·j´M¦~¤À½d³ò«á , µM«á¥h¤ñ¹ïsheet2 , ¦A±N¤ñ¹ï¦¨¥\ªº¸ê®Æ½Æ»s¨ìsheet1[ACx : AIx].
¥Hªþ¥ó¬°¨Ò , shee2[a12]¬O¥xªd¤@¤ë¥÷ , ÁöµM§Ṳ́wª¾¤G¤ë¥÷¥xªd¬O[a12].offset(0, 10) , ¤£¹LÃø§K·|¦³·sªÑ¸¹¥[¤J , ©Ò¥H·j´M¤UÓ¤ë¥÷®ÉÁÙ«ÀY¶}©l·j´M°_ , ¤£¹L¦Ü¤Ö¨CÓ¤ë¥÷ªº¸ê®Æ³£¬O¹j10®æ
¤p§Ì¥HFor Each«ü¥O¥i¥H°µ¨ìÃþ¦üªº¥\¯à , ¤£¹L¥u¯à¦¨¥\½Æ»s²Ä¤@Ó¤ë¥÷ , ¦Ó¥B³t«×«ÜºC.
·Q½Ð±Ð¦U¦ì¥ý¶i¦³¨S¦³¨ä¥¦«ü¥O¤Î¤°»ò¤è¦¡¥i¥H°µ¨ì³o¼Ëªº¥\¯à.
°]³ø_1.zip (732.12 KB)
|
|