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

¦p¦ó§R°£ªÅ¥ÕÄæ,¦Ó¤£¬O¾ã¦C§R°£?

¦p¦ó§R°£ªÅ¥ÕÄæ,¦Ó¤£¬O¾ã¦C§R°£?

½Ð°Ý¦U¦ì¤j¤j¡G
­n¦p¦ó§R°£ªÅ¥ÕÄæ,Åý¯S©wªº¨âÄ椧¤U¤è¸ê®Æ©¹¤W²¾?(¸Ô¦pªþ¥ó 11.rar (3.01 KB) )

Sub TEST()
Dim xArea As Range, xU As Range, xR As Range
Set xArea = Intersect(ActiveSheet.UsedRange, [B:F])
Set xU = xArea(xArea.Rows.Count + 1, 1)
For Each xR In xArea
    If xR.Column Mod 2 Or xR & xR(1, 2) <> "" Then GoTo 101
    Set xU = Union(xU, xR, xR(1, 2))
101: Next
If xU.Count > 1 Then xU.Delete Shift:=xlUp
End Sub

TOP

ÁÂÁ­㴣³¡ªL¤j¤j~

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD