时间戳

首页 > 解决方案 > 在第一组级别清除内容

excel - 在第一组级别清除内容

问题描述

我有从软件下载的数据。第一级组中的列的金额显示第二级组中的金额的总和。

一级组

二级组

我需要做的是清除一级中的内容，以防止将来计算重复金额。

所以，这就是我所做的。由于细胞数量不同，如何制作。因为如果选择整个 F:F 范围，则第一级和第二级都清楚。

Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Range("F2").Select
    Selection.ClearContents
    Range("F22").Select
    Selection.ClearContents
    Range("F82").Select
    Selection.ClearContents
    Range("F121").Select
    Selection.ClearContents
End Sub

标签： excelvbaexcel-formula

解决方案

确保首先隐藏所有级别，然后您可以使用.SpecialCells(xlCellTypeVisible)仅获取可见单元格，并且您只能清除那些：

Option Explicit

Public Sub Example()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    ' hide all levels
    ws.Outline.ShowLevels RowLevels:=1

    ' clear only visible cells
    ws.Range("F:F").SpecialCells(xlCellTypeVisible).ClearContents
End Sub

推荐阅读