- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 2024-4-29
|
本帖最後由 bobomi 於 2015-4-15 14:38 編輯
不是最快的方法
Sub hm()
Application.ScreenUpdating = 0
i% = 1
Do
c = Cells(i, 1).End(xlToRight).Column
If c < 11 And (i Mod 2) = 1 Then
k = k + 1
a = Range(Cells(i, 1), Cells(i, c))
Range(Cells(k, 1), Cells(k, c - 1)) = a
a = Range(Cells(i + 1, 1), Cells(i + 1, 10))
Range(Cells(k, c), Cells(k, 11)) = a
End If
i = i + 1
Loop Until Cells(i, 1) = ""
Range(Cells(i, 1), Cells(k + 1, 1)).EntireRow.Delete
End Sub |
|