- ©«¤l
- 102
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 137
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- 12
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-24
- ³Ì«áµn¿ý
- 2018-12-6
|
¦^´_ 5# Hsieh
½Ð°Ý¤@¤U¡A§ÚY·QÅýG5¥H¤U¨CÓ³£¯à¹ïÀ³¡A¥[¤JjªºÅܼÆ,¥i¬O³o¼Ë¶]°_¨Ó«o¬O¥X²{¤@¹M«á´N®ø¥¢
³Â·Ð¸Ñµª ÁÂÁÂ
Sub nn()
With Worksheets("Sheet1")
Range([H5], [H5].End(xlToRight)).ClearContents '²M°£¤§«e¤º®e
for j=j+1
Set a = [B:B].Find(.cell(j,5), lookat:=xlWhole) '§ä¨ìG5¦bBÄ檺¦ì¸m
i = i + 1
cell(j,5).Offset(, i) = a.Offset(, 1) 'G5¦V¥k¼g¤J
Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '°õ¦æ°j°éª½¨ìBÄ椣µ¥©óªÅ¥Õ©ÎCÄ椣µ¥©óªÅ¥Õ
cell(j,5).Offset(, i) = a.Offset(i, 1) 'G5¦V¥k¼g¤J
i = i + 1
Loop
next j
end with
End Sub
½Æ»s¥N½X |
|