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

[µo°Ý] vba¯S©w®æ¦¡§R°£

¦^´_ 9# man65boy
¦pªG§A·Q­n±N A4 ªºÀx¦s®æ¤å¦r (ª««~½s¸¹) §ï¬° (¤é´Á)¡A
²z½×¤W¬O OK ªº¡C
¦ý¬O¦b§Aªº A3 Äæ¦ìªº­È¬O Rng(1) = "           »sªí¤é´Á: " : Range/Range
µ{¦¡¦b³Ì«á¤@¦¸°õ¦æ Set Rng(1) = Sh.Cells.FindNext(Rng(1)) ®É¡A
¦^ÀY·j´M (FindNext()) «o§ì¨ì¤FA3 Äæ¦ìªº­È¡A¦Ó«D A4 ªºÀx¦s®æ¤å¦r (¤é´Á)¡C

±µµÛ µ{¦¡Ä~Äò©¹¤U°õ¦æ¨ì
Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow)
¦b Rng(1).Offset(-3) «K²£¥X¤F¿ù»~°T®§ ('1004')¡F¦]¬°¦¹®É
Rng(1).Address(0, 0) = "A3" : String¡A ¦Ó Rng(1).Offset(-3) ªº¦ì§}¬° A0¡A
¤w¸g¶W¥Xªí³æªº½d³ò¡C

TOP

¦^´_ 11# c_c_lai
8#ªºµ{¦¡½X ­×§ï ·j´M§¹¥þ¤@¼Ëªº¦r¦ê
   
  1. Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4"), LookAt:=xlWhole)
  2. ' ¥[¤W³o°Ñ¼Æ , XlLookAt ±`¼Æ¤§¤@¡GxlWhole ©Î xlPart¡C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# man65boy
´N¦p GBKEE ¤j¤jªº´£¥Ü (#12) °µ­×¥¿¡A
«K OK ¤F¡I

TOP

¦^´_ 13# c_c_lai

ÁÂÁ¤j¤j©Mª©¥Dªº¦^ÂСA¨º¦pªG§ï¥Î©T©w¦Cªº§R°£ªk­n¦p¦ó¥Î¡A·N«ä¬O¡A¤u§@ªí¤Wªº1~3¦C§R°£¡A41~45¦C§R°£¡A82~86¡A123~127§R°£......¥H¦¹Ãþ±À¡A(¸ê®Æ§Ú¬Ý¤j­P¤W°£¤F²Ä¤@­¶ªº¸ê®Æ¬O37¦C¥~¡A¨ä¾l³£¬O36¦C)
µM«á¦A§â¸ê³y¾ã¦X¦b¤@°_¡A³o¼Ë¥i¯à¤ñ¸û³æ¯Â¡AÁÂÁ¦Ѯv­ÌÀ°¦£¡AªþÀÉ §R°£¯S©w®æ¦¡cc.rar (22.94 KB)

TOP

¦^´_ 14# man65boy
§A»{¬°³B²zªº«ä¦Ò¤è¦V OK ªº¸Ü¡A´N¥H§Aªº·Qªk¥h¹F¦¨¥¦¡C
½×¾Â¥u¬O¤@­ÓÄÀºÃ»P¾Ç²ßªº³õ¦X¡A¨C­Ó¤H§¡¦³¦Û¤vªº«ä¦Ò¤è¦V¡A
¥u­n¬O¦nªº¸àÄÀ¡B©Î¬O§ó¨Îªº§Þ¥©³B²z³£¬O­È±o§Ú­Ì¾Ç²ßªº¡C

TOP

¦^´_ 14# man65boy
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim Sh As Worksheet, Rng As Range
  3.     On Error Resume Next  'µ{¦¡¦³¿ù»~¤£²z·|,Ä~Äò°õ¦æ¤U¥h
  4.     For Each Sh In Worksheets
  5.         Set Rng = Sh.UsedRange.Columns("I:I").Offset(4)  'Columns("I:I") ¤u§@ªí¸ê®Æªº³Ì«á¤@Äæ ,Offset(4) ¸ê®Æ²Ä¤­¦C¶}©l
  6.         Rng.MergeCells = False                                          '¨ú®ø¦X¨ÖªºÀx¦s®æ
  7.         Rng.Value = Rng.Value                                         'Àx¦s®æªº®æ¦¡³]¬° ¼Æ¦r
  8.         Set Rng = Union(Rng.SpecialCells(xlCellTypeBlanks), Rng.SpecialCells(xlCellTypeConstants, xlTextValues))
  9.          'xlCellTypeBlanks ªÅ¥ÕªºÀx¦s®æ, SpecialCells(xlCellTypeConstants, xlTextValues)  '¤å¦rªºÀx¦s®æ
  10.          'UsedRange.Columns("I:I").Offset(4) Àx¦s®æ¤¤ ¨S¦³ [ªÅ¥Õªº],[¤å¦rªº] µ{¦¡·|¿ù»~
  11.         If Err = 0 Then Rng.EntireRow.Delete
  12.         If Err > 0 Then Err.Clear
  13.     Next
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# c_c_lai

ÁÂÁÂc_c_lai¤j¤jªºÀ°¦£¡Aµ¹¤p§Ì¦³§ó¦h¥iÀ³¥Îªº½d¥»»P¤èªk¡A
c_c_lai¤j¤j»¡ªº:¨C­Ó¤H§¡¦³¦Û¤vªº«ä¦Ò¤è¦V¡A
¥u­n¬O¦nªº¸àÄÀ¡B©Î¬O§ó¨Îªº§Þ¥©³B²z³£¬O­È±o§Ú­Ì¾Ç²ßªº¡C
©Ò¨¥¬Æ¬Oªü¡A¨c°O¦b¤ß©³¡CÁÂÁ§A!!!

TOP

¦^´_ 16# GBKEE

·PÁÂGBKEEªO¤jªº¦^µª¡A«D±`ªº²Å¦Xªí³æªº»Ý¨D¡A¦]¬°­ì©lÀɲo¯A¨ìª«¥ó¾÷±K¡A­P¨Ï¤£´±¤W¶Ç¯u¥¿ªº°ÝÃD®æ¦¡¡A¯uªº¥u¯àµy¨Î­×§ï¤W¶Çµo°Ý¡A¦ý¨S·Q¨ì°ÝÃD¤£¬O´¶³qÂø¡A¸g2¦ì¦Ñ®vªºÀ°¦£¡A ¤]µ¹¤p§Ì¦³§ó¦hªº¾Ç²ßª¾ÃÑ¡A¯uªº·PÁ§A­Ì¡A·P®¦!

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD