Question

我想从Excel图表中删除空系列。我试过这段代码，但if语句有问题。

Sub UpdateChart()
    Dim i As Integer
    For i = ActiveChart.SeriesCollection.Count To 1 Step -1
        If ActiveChart.SeriesCollection(i).Values = 0 Then
            ActiveChart.SeriesCollection(i).Delete
        End If
    Next i
End Sub

Answer 1

您是否尝试删除空白单元格？

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

或者如果你需要删除范围内有空白数据的整个行或列，你可以使用这样的东西;

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Sheets("Sheet1").Range("A1:A1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

删除空系列VBA

1 个答案: