如何做成自動分頁(頁碼)效果? - Excel程式區

[發問] 如何做成自動分頁(頁碼)效果?

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

1^# 跳轉到 »

發表於 2013-6-16 11:27 | 顯示全部帖子

本帖最後由 lilytracy 於 2013-6-16 11:39 編輯

回復 5# luke

清除空表格列參考如下

Sub RowClear()
Dim row, i, j As Long
row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).row
Application.ScreenUpdating = False
Range(Cells(9, 1), Cells(row, 1)).Select
For i = 9 To row
If Cells(i, 1).Value = "" And Cells(i, 3).Value = "" And Cells(i, 8).Value = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
j = j + 1
If j = row Then
Exit For
End If
End If
Next
Application.ScreenUpdating = True
End Sub

複製代碼

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。