GBKEE

¦^´_ 1# jntseng
Public Sub tt()
    Dim x As Range, Y As Range, rng As Range, r As Long '«Å§iÅܼÆ
    Dim y1 As Range, y2 As Range
    Dim Ar, h%
    Ar = Array("ba2:ba", "bb2:bb", "bc2:bc")
    For h = 0 To UBound(Ar)
        r = Cells(65536, 52 + h+1).End(xlUp).Row      '¨úªºAÄæ³Ì¤j¦C¦ì
        Set rng = Range(Ar(h) & r)    '¨ú±o¸ê®Æ½d³ò
        For Each x In rng                  '¸ê®Æ½d³ò¤º¨C¤@Àx¦s®æ
            If x = "" Then                     '­YÀx¦s®æ­È¬°""
                If Y Is Nothing Then           'Y­Y¤£¦s¦b
                    Set Y = x                    '±NY³]©w¬°x
                    MsgBox Y.Address
                Else                               '­YY¦s¦b
                    Set Y = Union(Y, x)            'µ²¦XY¤Îx¦¨¬°·sªº½d³òY
                End If
            End If
        Next
        If Not Y Is Nothing Then Y.Delete (xlUp) '­YY¦s¦b±NY§R°£
    Next
End Sub

GBKEE

¦^´_ 3# jntseng
ªþ¤WÀɮ׬ݬÝ
h%  ->h As Integer
Integer ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s¡CInteger ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C

GBKEE

¦^´_ 5# jntseng
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim AR As Range, E As Range
   
3.     Set AR = Sheet1.Range("AW3", Sheet1.Range("AW" & Rows.Count).End(xlUp).Offset(-1))
   
4.     'Sheet1.Range("AW" & Rows.Count).End(xlUp).Offset(-1)) -> Sheet1.Range("AW" & Rows.Count) "AWÄæ³Ì©³ºÝªºÀx¦s®æ" .End(xlUp) "©¹¤Wªº²Ä¤@­Ó¦³¸ê®ÆªºÀx¦s®æ"
   
5.     '.Offset(-1)) ©Ò¦bªºÀx¦s®æ©¹¤W¦ì²¾¤@¦C
   
6.     For Each E In AR
   
7.     ' ±N E ¥N¼Æ§Aªºµ{¦¡½X¤¤   
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# jntseng
³]©wÅܼƠ ¦p«ü©wÅܼƬ°ª«¥ó®É ­n¥[¤W SET Y=union(Y,x)
Union ¤èªk  ¶Ç¦^¨â­Ó©Î¦h­Ó½d³òªº¦X¨Ö½d³ò¡C