GBKEE

¦^´_ 1# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     Dim E, Rng As Range
   
3.     With Sheets("¸ê®Æ½Æ»s°Ï")
   
4.         For Each E In Array(1, 3, 5)
   
5.             Set Rng = .Range(.Columns(E).Cells(2), .Columns(E).Cells(2).End(xlDown))
   
6.             With Sheets("¸ê®ÆÂH¶K°Ï").Range("A" & Rows.Count).End(xlUp)
   
7.                 If .Cells(1).Row = 1 Then
   
8.                     .Cells(1).Resize(Rng.Rows.Count) = Rng.Value
   
9.                 Else
   
10.                     .Cells(2).Resize(Rng.Rows.Count) = Rng.Value
    
11.                 End If
    
12.             End With
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ´Ñ»y³¾»ï
Q1.¦¹¥¨¶°´ú¸Õµ²ªG¡A¦pªG2¡B3¨S¸ê®Æ¡A·|¥X²{¿ù»~!½Ð±Ð­n¦p¦ó­×§ï??
2¼Óªºµ{¦¡¬O ¨Ì¾Ú§Aªº½d¨Ò¦Ó§@ªº ,§A­n»¡©ú²M·¡¦³­þ¨Çª¬ªp
Q2.¦pªG¸ê®Æ¨Ó·½³£¦bAÄæ(¦ý¬O¶ë¿ï­È¤£¤@¼Ë)¡A¦ý¤]¬O·Q¨C¦¸³£¶K¦Ü«e¤@¦¸ªº­È¤U¤è¡A½Ð°Ý­n¦p¦ó§ó§ï¨ä¥¨¶°?
½Ð°Ý¤°»ò¬O¶ë¿ï­È¤£¤@¼Ë  

GBKEE

¦^´_ 5# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     Dim E, Rng As Range
   
3.     With Sheets("¸ê®Æ½Æ»s°Ï")
   
4.         For Each E In .UsedRange.Columns
   
5.             If Application.CountA(E) > 1 Then
   
6.                 Set Rng = .Range(E.Cells(2), E.Cells(Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
   
7.                 With Sheets("¸ê®ÆÂH¶K°Ï").Range("A" & Rows.Count).End(xlUp)
   
8.                     If .Cells(1).Row = 1 Then
   
9.                         Rng.Copy .Cells(1)
   
10.                     Else
    
11.                         Rng.Copy .Cells(2)
    
12.                     End If
    
13.                 End With
    
14.             End If
    
15.         Next
    
16.     End With
    
17. End Sub

½Æ»s¥N½X