重置UsedRange而不激活工作表

Question

我正在审查一些代码，这些代码循环遍历大量工作表并刷新每个工作表中的数据连接。由于表格在刷新时可以大大改变大小，因此需要重置每张纸上的使用范围，当前的代码如下：

sh.Activate
ActiveSheet.UsedRange
Sheets(OriginalSheet).Activate

简单的问题 - 我知道只是运行sh.UsedRange不起作用，但有没有其他方法可以重置使用的范围而不激活工作表？

Answer 1

VBA-Excel：清除Excel工作表（工作表）中的数据

格式：WorkBook.WorkSheet.Range.Clear

示例：

mainworkBook.Sheets(3).UsedRange.Clear

清除特定单元格中的数据：

Dim main­work­Book As Workbook

Set main­work­Book = ActiveWorkbook

mainworkBook.Sheets(“MyFirstMacro”).Range(“A2”).Clear

'Will clear the data from Cell “A2”

清除多个单元格中的数据：

mainworkBook.Sheets(“MyFirstMacro”).Range(“A1,C3”).Clear

'Will clear the data from Cell “A1” and “C3”

清除细胞范围内的数据：

mainworkBook.Sheets(“MyFirstMacro”).Range(“A1:C4”).Clear

'Will clear the data from Range of Cells “A1” to “C4”

清除特定列中的数据：

mainworkBook.Sheets(“MyFirstMacro”).Range(“A:A”).Clear

'Will clear the data from entire col­umn “A”

清除特定行的数据：

mainworkBook.Sheets(“MyFirstMacro”).Range(“2:2″).Clear

'Will clear the data from entire Row 2.

清除所有已使用的数据范围：

mainworkBook.Sheets(3).UsedRange.Clear

清除多列以上的所有数据

mainworkBook.Sheets(“MyFirstMacro”).Range(“A:F”).Clear

'Clear data for Columns from A to F

清除多行以上的所有数据

mainworkBook.Sheets(“MyFirstMacro”).Range(“2:5″).Clear

信用：http://excel-macro.tutorialhorizon.com/vba-excel-clear-data-from-excel-sheetworksheet/