Question

我有一个Excel工作表，其中包含360行和65列“填充”实际数据，但是当我尝试获取.UsedRange时，我获得的行数超过600行，100列作为使用范围！您能告诉我如何删除/删除空的使用范围并仅删除实际范围数据吗？我试过这种方式，但在Rows("deleteted:all").Select部分

上收到“Type MisMatch”错误

Set ws = ThisWorkbook.ActiveSheet
With ws
   LastRow = .Range("H" & .Rows.Count).End(xlUp).Row
   deleteted = LastRow + 1
   all = .UsedRange.Rows.Count

   With .UsedRange
      Rows("deleteted:all").Select
      Selection.Delete Shift:=xlUp
   End With
End With

Answer 1

更改您的代码行

Rows("deleteted:all").Select

到

Rows(deleteted & ":" & all).Select

你应该摆脱错误。

Answer 2

这是另一种方法

Syntex：

Range(Selection, Selection.End(xlUp)).EntireRow.Delete

如何获得行和列中的实际使用范围

2 个答案: