GBKEE

¦^´_ 1# p6703
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Range("E2", Range("E2").End(xlDown)).Copy [G2]
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# p6703
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.    With Range("E2", Range("E2").End(xlDown))
   
4.     .Offset(, 2) = .SpecialCells(xlCellTypeVisible).Value
   
5.     End With
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# p6703
­×§ïªþÀɸê®Æ,¸Õ¸Õ¤£´Nª¾¹D.

GBKEE

¦^´_ 7# p6703
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, xi As Integer, i As Integer, e As Range
   
4.     Set Rng = Range("E2", Range("E2").End(xlDown)).SpecialCells(xlCellTypeVisible)
   
5.     'SpecialCells ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
   
6.     For xi = 1 To Rng.Areas.Count
   
7.     'Areas ÄÝ©Ê ©w¶Ç¦^ Areas ¶°¦X¡A¦¹¶°¦X¥Nªí¦h­«½d³ò¤¤ªº©Ò¦³½d³ò¡C°ßŪ¡C
   
8.         For Each e In Rng.Areas(xi).Cells
   
9.             i = i + 1
   
10.             If i <= 2 Then  '«e2¦C
    
11.                 e.Offset(, 2) = e.Value
    
12.             Else
    
13.                 e.Offset(, 2) = Rng.Cells(1).Value
    
14.             End If
    
15.         Next
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

PS: ¦^¤å®É  ½Ð«ö [¦^ÂÐ] «ö¶s  µªÂЧAªº¤H¤~·|±o¨ì³qª¾, ³o¬O°ò¥»ªºÂ§»ª

GBKEE

¦^´_ 9# p6703
1# »¡ :½Ð°Ý¥H¿z¿ï«á¸ê®Æ¦p­n½Æ»s¦Ü«ü©wªºÄæ¦ì
7# ¤S»¡ ªþ¥ó­«·s¤£³W«ß±Æ§Ç°õ¦æ¥¨¶°¡A¥u¦³«e¤G¦C©óGÄæ¨q¥X¥¿½Tªº­È¡A²Ä¤T¦C¶}©lªº­È³£Åܦ¨²Ä¤@¦Cªºª÷ÃB
µ¹§A8# ªºµ{¦¡¬O¦³¨Ì§A»¡¼¶¼gªº.
9# »¡ ¦ý¶]¥Xµ²ªG¤´¬O¥u¦³«e¤Gµ§·|®M¨ú¥¿½T¼Æ¾Ú¡A¦Û²Ä¤Tµ§°_³£¬O®»¨ú²Ä¤@µ§ªº¼Æ¾Ú
¨º§Ú´N¤£ª¾§Aªº°ÝÃD¬O¤°»ò¤F

GBKEE

¦^´_ 11# p6703
ÁÙ¬O¤£¤Ó¤F¸Ñ§Aªº»¡ªk,¸Õ¸Õ¬Ý¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveSheet.UsedRange
   
4.         .Range("A1").AutoFilter 2, "ªM¤l"
   
5.         .Columns("E:E").Offset(1).Copy
   
6.         .Parent.AutoFilterMode = False   '¨ú®ø ¤u§@ªíªº¦Û°Ê¿z¿ï
   
7.         .Range("G:G") = ""
   
8.         .Parent.Paste Destination:=.Range("G2")
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# eg0802
ªþÀɬݬÝ

GBKEE

¦^´_ 18# eg0802

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, A As Range, i As Integer, EA As Range
   
4.     Set Rng = Range("E2", Range("E2").End(xlDown)).SpecialCells(xlCellTypeVisible)
   
5.     'SpecialCells ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
   
6.     'Areas ÄÝ©Ê ©w¶Ç¦^ Areas ¶°¦X¡A¦¹¶°¦X¥Nªí¦h­«½d³ò¤¤ªº©Ò¦³½d³ò¡C°ßŪ¡C
   
7.     For Each A In Rng.Areas
   
8.         For Each EA In A.Cells
   
9.             i = i + 1
   
10.             If i <> 2 Then  '<>²Ä2¦C
    
11.                 EA.Offset(, 2) = EA.Value
    
12.             End If
    
13.         Next
    
14.     Next
    
15. End Sub

½Æ»s¥N½X