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