VBA实现Do While循环遍历列至空值并复制上一行格式求助

• 变量逻辑冗余：nullVal未做有效状态控制，嵌套的Do While+For双重循环完全多余，遍历到空单元格后不会立刻终止，会强制跑完1000次循环，执行效率极低
• 对象赋值语法错误：给工作表对象wks赋值时未加Set关键字，属于VBA基础语法错误，你添加的On Error Resume Next吞掉了该错误，直接导致后续所有涉及wks的逻辑全部异常
• 单元格引用不明确：未指定工作表的Cells、Range默认指向当前激活的工作表，代码中多次切换激活工作表，极易出现引用错位
• 循环逻辑错误：For循环内手动修改循环变量i的值会导致遍历跳行，最终取到的行号完全不符合预期
• 依赖Select/Activate操作：这类操作不仅降低运行效率，还容易被用户的手动操作打断，触发不可预期的错误

Public Sub AddNewPage()
    Dim wks As Worksheet
    Dim newWks As Worksheet
    Dim lastRow As Long
    
    ' 复制最后一个工作表并设置序号
    Set wks = Sheets(Sheets.Count)
    wks.Copy After:=Worksheets(Sheets.Count)
    Set newWks = Sheets(Sheets.Count)
    newWks.Range("H9").Value = wks.Range("H9").Value + 1
    
    ' 重命名新工作表
    If wks.Range("H9").Value <> "" Then
        On Error Resume Next
        newWks.Name = CStr(newWks.Range("H9").Value)
        On Error GoTo 0 ' 恢复错误捕获，避免后续错误被吞
    End If
    
    ' 定位Log表A列最后一个非空行
    With Worksheets("Log")
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        ' 复制上一行格式到新增空白行
        .Rows(lastRow).Copy
        .Rows(lastRow + 1).PasteSpecial Paste:=xlPasteFormats
        .Rows(lastRow + 1).ClearContents ' 清空内容仅保留格式
    End With
    
    Application.CutCopyMode = False
End Sub

针对你提到的数组和表格方案的疑问，说明如下：

• 数组不适合当前场景：数组仅适合批量读写单元格值的场景，你当前的需求是复制单元格格式，用VBA原生行对象操作更直接，使用数组没有任何性能优势
• 更推荐使用Excel表格（ListObject）：如果Log表是固定结构化数据，建议将其转换为Excel内置表格
  • 不需要手动查找最后一行，表格会自动扩展数据范围
  • 新增行默认继承上一行的格式，不需要手动写代码复制格式
  • 结构化引用更稳定，不会因为插入、删除行导致单元格引用错位

内容的提问来源于stack exchange，提问作者Ipixler