- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 1# f00l01
¸Õ¸Õ¬Ý
Sub ex()
Dim Arr As Variant, C As Variant, X%, Y%
[A10].CurrentRegion.ClearContents '¸ê®Æ©ñ¸m¦ì¸m,²M°£¸ê®Æ(½Ð¦Û¦æ½Õ¾ã)
Arr = [a1].CurrentRegion
Set C = Nothing
For X = 1 To UBound(Arr)
For Y = 1 To UBound(Arr, 2) - 1
If Cells(X, Y) - Cells(X, Y + 1) = -1 Then '§PÂ_¬O§_¬°³sÄò¼ÆÈ
If C Is Nothing Then
Set C = Cells(X, Y).Resize(, 2)
Else
Set C = Union(C, Cells(X, Y).Resize(, 2))
End If
End If
Next
C.Copy [A10].Offset(X).Resize(, C.Count) '¸ê®Æ©ñ¸m¦ì¸m(½Ð¦Û¦æ½Õ¾ã)
Set C = Nothing
Next
End Sub |
|