[µo°Ý] ¦p¦ó¤j¶q½Æ»sÀx¦s®æ¤º«ü©w¦r¦ê¡H

turbine

1020911°ÝÃDÀÉ.zip (85.44 KB)

¤U¸ü¦¸¼Æ: 9

2013-9-11 16:03

½Ð°Ý¦U¦ì¤j¤j¡A¦pªþ¥ó¡G
Àx®æa¤º©Ò¦³¤º®e¡A¦Û¥ªÃä¼Æ¨Ó²Ä¤@­ÓªÅ¥Õ«á½Æ»s¨ìÀx®æb¤º­ì¦³¤º®e«á­±¡C
¸Ó¦p¦ó¯à¿ìªº¨ì¡H
ex¡G
A2¡÷BALL BALL A182 F304,K200-1BBM-00 2
B2¡÷²y
·Q¦X¨Ö¦¨¡A
B2¡÷²y  BALL A182 F304,K200-1BBM-00 2
¦ÛB2¦ÜB5415¡C

ÁٽЦU¦ì¤j¤jÀ°¦£¡B«ü¾É¡AÁÂÁ¡C

turbine

¦^´_ 6# GBKEE


¦¨¥\¤F¡I¡I¡I
ÁÂÁÂGKBEE¤j~~~~~~~~
·PÁ¦A·PÁÂ~~~

GBKEE

¦^´_ 4# turbine
¦A¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S
   
4.     With Sheets("sheet1")
   
5.         For Each E In .Range("A2", .Range("A2").End(xlDown))
   
6.             S = Split(E, " ")
   
7.             S = Replace(E, S(0), "", 1, 1)
   
8.             E.Offset(, 1) = E.Offset(, 1) & S
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

turbine

¦^´_ 3# jakcy1234


J¤j±z¦n¡G
§Ú¬O­n...
§â©Ò¦³A¤º³W½dªº²Ä¤@­ÓªÅ¥Õ«eªº¦WºÙ¡A¥ÎB¤ºªº¤¤¤å¨ú¥N±¼¡C
¥HB¨ÓÁ¿...
²y¨ú¥N±¼BALL
¶b©Ó¨ú¥N±¼BEARING
¦ùÁYÅn¨ú¥N±¼BELLOW
¨Ì¦¹Ãþ±À...
ÁÂÁ¡C

turbine

¦^´_ 2# GBKEE


¥ýÁÂÁÂGBKEE¤jªºµ{¦¡½X¡A¤£¹L¥i¯à¤p§Ì§Ú¨S»¡©ú¥Õ¡A§Ú­nªº¬O...
¥HA4¤ÎB4®æ¨ÓÁ¿¡G
A4¡GBEARING AOP BALL BEARING/G4-54098-14
B4¡G¶b©Ó AOP BALL BEARING/G4-54098-14
¦Ó¤£¬O§âA4¤º¥þ³¡¶K¨ìB4ªº¤¤¤å«á­±...

¤£ª¾¹D³o¼Ë¬O§_¦³Á¿²M·¡...ÁÂÁ¡C

jakcy1234

¦^´_ 1# turbine
²y BALL BALL A182 F304,K200-1BBM-00 2
²y BALL 20"-#600 BALL V/V BALL,2B-20067B-3
¶b©Ó BEARING AOP BALL BEARING/G4-54098-14
¶b©Ó BEARING MOP BALANCE PISTON/GCS-034135-256

§A¬O­n BALL ¨ú¥N ²y ?
  ÁÙ¬O A1 ¦X¨Ö B2 ?

GBKEE

¦^´_ 1# turbine

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("sheet1")
   
4.         With .Range("b2", .Range("b2").End(xlDown))
   
5.             .Offset(, 1) = "=rc2&"" ""&rc1"
   
6.             .Cells = .Offset(, 1).Value
   
7.             .Offset(, 1) = ""
   
8.         End With
   
9.     End With
   
10. End Sub

½Æ»s¥N½X