c_c_lai

¦^´_ 30# iceandy6150
¦pªG§A¥Ø«e¨Ï¥Îªºªººô­¶³nÅéµLªk¤W¶ÇÀɮתº¸Ü¡A
½Ð§ï¥Î§Oªººô­¶³nÅé¨Ó¤W¶Ç¡C
Ä´¦p§A­ì¥»¬O¨Ï¥Î Firefox ¤W¶ÇÀɮסA¦pªGµLªk¤W¶Ç¡A
«h½Ð¸Õ¸Õ§ï¥Î IE ¨Ó¤W¶ÇÀɮסC

c_c_lai

¦^´_ 31# iceandy6150
§A¥i¥H½Ð±Ð  ¤p»xª©¤j¡C

c_c_lai

¦^´_ 34# iceandy6150
½Ð±N¥H¤U¤§¤C¶µ "X: X" ¤º¤§ªÅ¥Õ¥h°£¡F

1. 1.  .UsedRange.Range("G: G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
2. 2.  .Range("A: G").AutoFilter 7, .Cells(i, .Columns.Count)  '  AutoFilter:  ¦Û°Ê¿z¿ï ,²Ä7Äæ(Ãþ§O)ªº·Ç«h¬° .Cells(i, .Columns.Count)
   
3. 3.  Set Rng = .Range("A1: A18").Find(What:=M)
   
4. 4.  R = Application.CountA(Sh.[D7: D19])   '  ¦³¿é¤Jªº¸ê®Æ¼Æ
   
5. 5.  If Application.CountA(Sh.[D7: D19]) = 13 Then
   
6. 6.  Sh.[D7: J19] = ""
   
7. 7.  Sh.[D33: J45] = ""

½Æ»s¥N½X

§_«h·|²£¥Í¿ù»~°T®§¡C (¥¿½TÀ³¬° "X:X")

1. 1.  .UsedRange.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
2. 2.  .Range("A:G").AutoFilter 7, .Cells(i, .Columns.Count)  '  AutoFilter:  ¦Û°Ê¿z¿ï ,²Ä7Äæ(Ãþ§O)ªº·Ç«h¬° .Cells(i, .Columns.Count)
   
3. 3.  Set Rng = .Range("A1:A18").Find(What:=M)
   
4. 4.  R = Application.CountA(Sh.[D7:D19])   '  ¦³¿é¤Jªº¸ê®Æ¼Æ
   
5. 5.  If Application.CountA(Sh.[D7:D19]) = 13 Then
   
6. 6.  Sh.[D7:J19] = ""
   
7. 7.  Sh.[D33:J45] = ""

½Æ»s¥N½X

c_c_lai

¦^´_ 34# iceandy6150
¤S¡B¥H¤U³B¸Ì²M°£°Ê§@¡G

1.         '  k = 1
   
2.         '  Do While .Cells(k, .Columns.Count) <> ""
   
3.         '      .Cells(k, .Columns.Count) = ""
   
4.         '      k = k + 1
   
5.         '  Loop

½Æ»s¥N½X

¥i°Ñ¦Ò GBKEE ¦b "¹ï¯S©wÄæ¶i¦æ¿z¿ï©M´À¥N¸ê®Æ" ¤@¤å¤¤´£¤ÎªºÂ²¼ä¡B§ã­n¤§¨Ï¥Î»yªk¡A
¦Ó´À´« Do While ~ Loop ´`Àô§PÂ_ª½¦Ü±ø¥ó¤£¦¨¥ß¬°¤îªº¥Îªk
(P.S.  ÁöµM¦¹³B¥u¦³¨âÄæ¸ê®Æ¡A¦ýÁ`¦@«o°õ¦æ¤F¤T½ë)¡C

1. .Cells(1, .Columns.Count).CurrentRegion = ""

½Æ»s¥N½X