VBA删除范围内容错误

Question

我想清除第2行到最后一个填充单元格的B列内容。当我同时处理几个打开的工作簿时，我需要确保删除正确的Range。 当我使用此代码时，我收到错误1004 - run time error：

Workbooks("BO_Settings.xlsm").Activate
intLastRow = _
    Workbooks("BO_Settings.xlsm") _
        .Worksheets(strCurrentSheet).UsedRange.Rows.Count

Workbooks("BO_Settings.xlsm") _
    .Worksheets(strCurrentSheet).Range( _
          Cells(2, 2) _
        , Cells(intLastRow, 2) _
    ).ClearContents

我做错了什么？

Answer 1

您需要指定您在范围内使用的单元格。

Dim wS as worksheet
Set wS = Workbooks("BO_Settings.xlsm").Worksheets(strCurrentSheet)

Range(wS.Cells(2,2), wS.Cells(intLastRow,2)).ClearContents