Question

我的工作表有一个50年的表，从2017年到2066年。这个宏在前10年制作了一个打印区域，第十年是用户输入并隐藏任何其他列。我们将连续第10年删除（2026年）并仅在用户输入大于2026时将其替换为用户输入。

我发现我的宏很慢，我正在寻找有关如何加快速度的反馈。

With Sheet1
  If userinputyear > 2026 Then
    c = 10 'column index corresponding to consecutive 10th year 2026
    Do While .Cells(5, c) <> userinputyear
       .Cells(5, c).EntireColumn.Hidden = True
       c = c + 1
    Loop
    Do While c + 1 <> 50 'column index corresponding to year 2066
      .Cells(5, c + 1).EntireColumn.Hidden = True
       c = c + 1
    Loop
end with

Answer 1

这会更快吗？（假设您的列根据年份排序）

With Sheet1
    If userInputYear > 2026 Then
        .Cells(1, 10).Resize(, 41).EntireColumn.Hidden = True
        .Columns(userInputYear - 2016).Hidden = False
    End If
End With

VBA - 优化隐藏列的运行时

1 个答案: