返回列表 上一主題 發帖

[發問] excel vba語法:刪除K欄為空白之列

Sub TEST()
On Error Resume Next '略過找不到空白格的錯誤
[K:K].SpecialCells(xlCellTypeBlanks).EntireRow.Delete '取得空白格(公式產生的""不算), 刪除
On Error GoTo 0 '恢復偵錯功能
End Sub

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題