vba - VBA 删除范围内容错误

Question

我想从第 2 行到最后一个填充单元格清除 B 列的内容。当我同时处理几个打开的工作簿时，我需要确保删除正确的范围。当我使用此代码时，我收到错误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