ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤jµ§¸ê®Æ³B²z~§PŪ°ÝÃD

[µo°Ý] ¤jµ§¸ê®Æ³B²z~§PŪ°ÝÃD

§Ú¦³¤@¥÷¥|¸U¦hµ§ªº¸ê®Æ
§Ú¥ÎPDF ½Æ»s¹L¨Ó¤§«á
·|¦³¤@¨Ç¦a§} ¹³²Ä¤@µ§¤@¼Ë
¦]¬°¦a§}¹Lªø¦Ó¸õ¤F¤@®æÀx¦s®æ
¤£ª¾¹D¦³¨S¦³¤èªk¥i¥H§PŪ ¬Ý¥L¬O§_¸õ®æ
µM«á±N¦a§}¦X¦b¤@°_ ³Ì«á«ÑSHEET3³o¼Ë Âà¦Ü¦¨¾î¦Cªº
:L

¨D§U.rar (6.59 KB)

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-9 23:07 ½s¿è
§Ú¦³¤@¥÷¥|¸U¦hµ§ªº¸ê®Æ
§Ú¥ÎPDF ½Æ»s¹L¨Ó¤§«á
·|¦³¤@¨Ç¦a§} ¹³²Ä¤@µ§¤@¼Ë
¦]¬°¦a§}¹Lªø¦Ó¸õ¤F¤@®æÀx¦s ...
super31610 µoªí©ó 2014-9-9 10:15

¦]¬°§Aªº¸ê®Æ¶q¤Ó¤j¤F,
¥B¨ä¤º®e¤S»Ý­n·h²¾»P¦X¨Ö,
©Ò¥H¤ñ¸û¾A¦X¥Î Excel VBA ¨Ó¹F¦¨,
¤£©y¥ÎÀx¦s®æ¤½¦¡¨Ó¹ê²{.
  1. Sub nn()
  2.   Dim lRows&, lRow&
  3.   Dim iI%
  4.   
  5.   lRow = 1
  6.   Do While Cells(lRow, 1) <> ""
  7.     With Cells(lRow, 1)
  8.       If Mid(.Value, 3, 1) = "¥«" Or Mid(.Value, 3, 1) = "¿¤" Then
  9.         If Not IsNumeric(.Offset(1)) Then
  10.           .Value = .Value & .Offset(1)
  11.           .Offset(1).Rows.Delete xlShiftUp
  12.         End If
  13.         For iI = 1 To 3
  14.           .Offset(, iI) = .Offset(1)
  15.           .Offset(1).Rows.Delete xlShiftUp
  16.         Next
  17.       End If
  18.       lRow = lRow + 1
  19.     End With
  20.   Loop
½Æ»s¥N½X
¨D§U-a.zip (15.87 KB)

TOP

WOW ¤Ó·PÁ§A¤F
¯uªº¬O¬Ù¤F§Ú¤j¥b¤Ñªº®É¶¡¤F
¤£µM§Ú¥Î¨ç¼Æ¤U¥h±a ±`±`¿ù»~¤S«ÜºC
¤Ó·P®¦¤F

TOP

¤µ¤Ñ¦b¨Ï¥Îªº®É­Ô µo²{¤F¤@¨Ç°ÝÃD
´N¬O §Ú¦³¤@¨Ç¸ê®Æ ¦a§}ªº³¡¤À·|¤£§¹¥þ
¥i¯à¥u¦³°ª¶¯»ñ¤s°Ï ©Î¥x¥_¥x¥_°Ï ³o¼Ë
¤£ª¾¹D ¥i¤£¥i¥H ¥Î¤U­± C-3xxx-x ³oÃä°µ¬°§PÂ_
µM«á¤U¥h§ó§ï §Ú¦³¹Á¸Õ§ï¤F¤@¤U§A´£¨Ñªº
¥i¬OµLªk¦¨¥\°õ¦æ§Ú·Q­nªºµ²ªG

TOP

¤µ¤Ñ¦b¨Ï¥Îªº®É­Ô µo²{¤F¤@¨Ç°ÝÃD
´N¬O §Ú¦³¤@¨Ç¸ê®Æ ¦a§}ªº³¡¤À·|¤£§¹¥þ
¥i¯à¥u¦³°ª¶¯»ñ¤s°Ï ©Î¥x¥_¥x¥_ ...
super31610 µoªí©ó 2014-9-10 15:07

§ï¥t¤@ºØ§PÂ_¤è¦¡:
  1. Sub nn()
  2.   Dim lRows&, lRow&
  3.   Dim iI%, iJ%
  4.   Dim vData()
  5.   
  6.   lRow = 1
  7.   Do While Cells(lRow, 1) <> ""
  8.     iI = 0
  9.     ReDim vData(4)
  10.     With Cells(lRow, 1)
  11.       Do
  12.         vData(iI) = .Offset(iI)
  13.         iI = iI + 1
  14.       Loop Until Left(.Offset(iI), 2) = "C-"
  15.       vData(iI) = .Offset(iI)
  16.       If iI > 3 Then
  17.         .Value = vData(0) & vData(1)
  18.         .Offset(1).Rows.Delete xlShiftUp
  19.       End If

  20.       iI = iI - 2
  21.       For iJ = 0 To 2
  22.          Cells(lRow, 1).Offset(, iJ + 1) = vData(iI + iJ)
  23.         .Offset(1).Rows.Delete xlShiftUp
  24.       Next
  25.       lRow = lRow + 1
  26.     End With
  27.   Loop
  28. End Sub
½Æ»s¥N½X

TOP

·PÁ§A°Ú ÁöµM¤j³¡¤Àªºµ{¦¡½X³£¬Ý¤£À´¨S¿ìªk¦Û¤v§ï
¦ý¬O ¹ï§Ú«Ü¦³À°§U ·PÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD