[已解决]当满足条件时自动隐藏列，只保留最新7天的数据

楚雪飞扬

如何在A，B列不变的情况下，只保留最新的7天数据，其它列自动隐藏
数据每天更新增加，只保留最新的7天数据，其它列自动隐藏

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-6-21 09:41

請測試看看，謝謝
Sub test()
Dim Arr, j&, xU As Range
Arr = [a1].CurrentRegion
For j = 3 To UBound(Arr, 2)
    If Date - 7 > Arr(1, j) Then
        If xU Is Nothing Then Set xU = Columns(j) Else Set xU = Union(Columns(j), xU)
    End If
Next
If Not xU Is Nothing Then xU.EntireColumn.Hidden = True
End Sub

跳转到最佳答案楼层

林木水

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim a
   
3. a = Range("a1").End(xlToRight).Column
   
4. If a <= 9 Then
   
5.     Columns.Hidden = False
   
6.     End
   
7. Else
   
8.     Columns.Hidden = False
   
9.     Range("c:c").Resize(, a - 9).Hidden = True
   
10. End If
    
11. End Sub
    
12. Sub demo()
    
13. Columns.Hidden = False
    
14. End Sub
    

复制代码

楚雪飞扬

林木水 发表于 2022-6-21 09:28

运行报错，帮忙在看一下

sam-wang

請測試看看，謝謝
Sub test()
Dim Arr, j&, xU As Range
Arr = [a1].CurrentRegion
For j = 3 To UBound(Arr, 2)
    If Date - 7 > Arr(1, j) Then
        If xU Is Nothing Then Set xU = Columns(j) Else Set xU = Union(Columns(j), xU)
    End If
Next
If Not xU Is Nothing Then xU.EntireColumn.Hidden = True
End Sub

林木水

楚雪飞扬 发表于 2022-6-21 09:39
运行报错，帮忙在看一下

这个不用运行，自动运行的。你直接用我附件表格。我刚试了是可以的

加一是只猫

学习观摩  膜拜大佬