- ©«¤l
- 27
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-19
- ³Ì«áµn¿ý
- 2012-6-26
|
[µo°Ý] ¦p¦óÅý¸ê®Æ¤ñ¹ï¨ã¦³°ß¤@©Ê???
¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-5-20 14:10 ½s¿è
§Ú¥Îoobird¤j¤j©Òµ¹ªºµ{¦¡½X°µ¸ê®Æ®wªº¤ñ¹ï
(¦Ó¥Ø«eªº¸ê®Æ®w¤¤¤£¨ãÃöÁp©Ê¡A ¦]¬°¥¼«Ø¥ß)
¥\¯à¬Osheet2¡B3·í¦¨¸ê®Æ®w¡Asheet1ªºA¡BB¦æ¦U¦Û·í¦¨¤@Ó¤ñ¹ï¸ê®ÆªºÈ
§ä¨ì¸ê®Æ«á¦A¥á¦^sheet1ªºC¡BD¡BE¡BF¡BG¦æ
oobird¤j¤j©Ò´£¨Ñªºµ{¦¡½X¦p¤U:
Sub yy()
Dim c As Range, i%
With Sheet1
For i = 2 To .[a65536].End(3).Row
Set c = Sheet2.[a:a].Find(.Cells(i, 2))
If Not c Is Nothing Then
.Cells(i, 3).Resize(, 2) = c(1, 2).Resize(, 2).Value
End If
Set c = Sheet3.[a:a].Find(.Cells(i, 1))
If Not c Is Nothing Then
.Cells(i, 5).Resize(, 3) = c(1, 2).Resize(, 3).Value
End If
Next
End With
End Sub
¦Û¤v´ú¸Õµo²{¦³¨Ç°ÝÃD¡A¹³¦pªGA¡BB¦æªº¸ê®Æ¿é¤J¿ù»~¡A(¥¿½TȬ°12312)¡A¦Ó§Ú¥u¿é123
·í¸ê®Æ®w¤¤¦³12311¡B12312¡A¥¦·|½Æ»s12311ªº¸ê®Æ¹L¨Ó¡A
¥Bèè¤S´ú¸Õ¡A¿é¤J0¡A¸ê®Æ®w¤¤¦³¤@Ó¸ê®Æ¥N½X¬O01©~µM¥h§ì³oµ§¸ê®Æ
¸Ó¦p¦óÅý·j´M®É¨CÓ¸ê®Æ³£¨ã¦³³æ¤@©Ê???
¤@©wn¿é¤Jªº¸ê®Æ§¹¥þ¥¿½T¤~·|¥X²{¡A¿ù»~®É«hªÅ¥Õ???
½Ð±Ð¦U¦ì¤j¤j |
|