- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
2#
發表於 2018-9-28 10:43
| 只看該作者
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 |
|
發表於 2018-9-25 20:06
| 
