VBA 삭제 범위 내용 오류

Question

두 번째 줄에서 마지막으로 채워진 셀까지 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