VBA实战之VBA循环：高效自动化办公的核心引擎 Sub 标记空行Dim r As Integerr = 1 ' 从第1行开始' 循环直到遇到空单元格Do While Cells(r, 1).Value ""If WorksheetFunction.CountA(Rows(r)) = 0 ThenRow 自动化 vba sub vba循环 vba实战 2025-06-09 09:29 3