do while (條件) loop 也是循環語句。表示條件為假時循環停止。
Do While Cells(1, i) <> "" '
i = i + 1
Loop 得到使用列數
Do While Cells(j, 1) <> "" '
j = j + 1
Loop 得到使用行數
Cells(m, n)表示m行n列單元格。用m和n循環整個不為空的單元格。
此程序在使用單元格較多時會很慢,其實要達到其功能很簡單。
Sub aa() '選中整個工作表,運行
Selection.Hyperlinks.Delete
End Sub