매크로가 매우 느리게 실행 중임

Question

새로운 채용 정보를 얻기 위해 홀리데이 시트에 새 행을 삽입하는 매크로를 작성했습니다. 이제는 정상적으로 작동했지만 이제는 중단되어 시간이 많이 걸립니다. 새 행을 삽입하십시오. 나는 장애인을 ScreenUpdating 한

For f = 1 To Worksheets.Count - 1 

    Worksheets(f).Select 

    Range("A1").Select 

    If Worksheets(f).Name = "FLEXI" Then 

     Range("A1").Select 
     N = Range("A2").Value 
     Range("A" & NewRow).Select 
     Selection.EntireRow.Insert 
     Range("A" & NewRow + N + 1).Select 
     Selection.EntireRow.Insert 
     GoTo flexidivert 
    End If 

Range("A" & NewRow).Select 
Selection.EntireRow.Insert 

flexidivert: 
Next f 

, 장애인 enableEvents를하고 평소 용의자가 여기에 직장에서되지 않도록 계산이 수동으로 설정 : 여기에 영향을받는 코드입니다. 그렇게 간단한 절차이기 때문에 계산하는 데 몇 분이 걸리는 이유를 이해할 수 없습니다. NewRow는 붙여 넣을 행이며 worksheets.count = 5이므로 스크롤 할 수있는 번호가 없습니다.

Answer 1

위의 내 의견에 더 나아가, 당신이하려는 일이 무엇입니까?

For f = 1 To Worksheets.Count - 1 
    With Worksheets(f) 
     .Range("A" & NewRow).EntireRow.Insert 

     If .Name = "FLEXI" Then 
      N = .Range("A2").Value 
      .Range("A" & NewRow + N + 1).EntireRow.Insert 
     End If 
    End With 
Next f 

모든 변수를 올바르게 선언했고 셀 A2에 숫자 값이 있다고 가정합니다.

Answer 2

당신이 woreksheet 루프 할 필요의 이름을 알고있는 경우,

또한 INSERT를 사용하기 전에 셀을 선택하려면 아래

Worksheets("FLEXI").select 
N = Range("A2").Value 
Range("A" & NewRow).EntireRow.Insert shift:=xldown 
Range("A" & NewRow + N + 1).EntireRow.Insert shift:=xldown 
Range("A" & NewRow).EntireRow.Insert shift:=xldown 

필요를 시도하지, 그냥 수집

을 통해 직접 참조 ALL 기타 사항 서보 -OFF 정말 SL을 사용하여

HTH

필립