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

[µo°Ý] EXCEL VBA¥ÑOFFICE 03Âà¥h2010´N¦³°ÝÃD

[µo°Ý] EXCEL VBA¥ÑOFFICE 03Âà¥h2010´N¦³°ÝÃD

¥»©«³Ì«á¥Ñ kennet ©ó 2012-5-28 12:19 ½s¿è

¤§«e¥Î03ª©¥»®ÉÁÙ¦n¦nªº, ¦ý¤½¥q¹q¸£¤@Âà¥Î2010ª©¥»®É¦æ¨º­ÓVBA«K¥X²{°ÝÃD¤F
"°õ¦æ¶¥¬q¿ù»~1004": À³¸Óµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~
  1. ' Delete ¤p­p
  2. Sheets("Summary").Select
  3. x = 4
  4. Do Until word = "¤p­p"
  5. word = Right(Cells(x, 5), 2)
  6. x = x + 1
  7. Loop
  8. Cells(x - 1, 5).Delete
  9. x1 = 4
  10. Do Until word1 = "¤p­p"
  11. word1 = Right(Cells(x1, 4), 2)
  12. x1 = x1 + 1
  13. Loop
  14. Cells(x1 - 1, 4).Delete
  15. x2 = 4
  16. Do Until word2 = "¤p­p"
  17. word2 = Right(Cells(x2, 3), 2)
  18. x2 = x2 + 1
  19. Loop
  20. Cells(x2 - 1, 3).Delete
  21. x3 = 4
  22. Do Until word3 = "¤p­p"
  23. word3 = Right(Cells(x3, 2), 2)
  24. x3 = x3 + 1
  25. Loop
  26. Cells(x3 - 1, 2).Delete
  27. x4 = 4
  28. Do Until word4 = "¤p­p"
  29. word4 = Right(Cells(x4, 1), 2)
  30. x4 = x4 + 1
  31. Loop
  32. Cells(x4 - 1, 1).Delete
½Æ»s¥N½X
°»¿ù®ÉÂI¥X²Ä5¥y»yªk¥X²{°ÝÃD, ½Ð°Ý¦p¦ó¸Ñ¨M?

Lens_CR_VBA 2000 Ver.xls A1.zip (47.63 KB)

¨Sªþ¤åÀɬݤ£¥X²Ä5¦æ¿ù¦b­þ¸Ì¡C
§A¥i¥H§ï¥Î³o­Óµ{¦¡½X¸Õ¸Õ¡G
  1. Sub test()
  2. [a:e].Replace "¤p­p", "=1/0"
  3. [a:e].SpecialCells(xlCellTypeFormulas, 16).Delete (3)
  4. End Sub
½Æ»s¥N½X

TOP

­Y¤£¬O¾ã¦C§R°£§âDelete (3)§ï¦¨Delete (2)

TOP

¦^´_ 1# kennet

1.Àx¦s®æ¤º§ä¤£¨ì"¤p­p",³y¦¨µL½a°j°é
2.µ{¦¡»yªk¥iºë²
3.½Ðªþ¤WexcelÀÉ®×

TOP

²{ªþ¤WEXCELÀÉ, ±æ¦U¦ì¤j¤jÀ°¦£

TOP

¦^´_ 5# kennet

¤p­p §ï¬° ¦X­p

TOP

¦^´_  kennet

¤p­p §ï¬° ¦X­p
register313 µoªí©ó 2012-5-28 12:57


¦¨¥\¤F!! ¦hÁ¤j¤jÀ°¦£!·P¿E¤£ºÉ

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD