[已解决]求大神 帮帮忙

paal98

怎么删除excel中所有大于某个字号的行 比如说删除表格中大于11号字体的行

最佳答案

月排行榜 / 总排行榜

高

2021-4-10 12:42

Sub gsgsre()
     r0 = ActiveSheet.UsedRange.Rows.Count
     c0 = ActiveSheet.UsedRange.Columns.Count
     r1 = ActiveSheet.UsedRange.Range("a1").Row
     c1 = ActiveSheet.UsedRange.Range("a1").Column
     For x = r0 + r1 - 1 To r1 Step -1
        For y = c1 To c1 + c0 - 1
        If Cells(x, y).Font.Size > 11 Then
        Rows(x).Delete
        Exit For
        End If
        Next
     Next
    End Sub

跳转到最佳答案楼层

高

Sub gsgsre()
     r0 = ActiveSheet.UsedRange.Rows.Count
     c0 = ActiveSheet.UsedRange.Columns.Count
     r1 = ActiveSheet.UsedRange.Range("a1").Row
     c1 = ActiveSheet.UsedRange.Range("a1").Column
     For x = r0 + r1 - 1 To r1 Step -1
        For y = c1 To c1 + c0 - 1
        If Cells(x, y).Font.Size > 11 Then
        Rows(x).Delete
        Exit For
        End If
        Next
     Next
    End Sub

paal98

高 发表于 2021-4-10 12:42
Sub gsgsre()
     r0 = ActiveSheet.UsedRange.Rows.Count
     c0 = ActiveSheet.UsedRange.Columns.Co ...

感谢大佬，我再改改