안녕하세요
Sub MeasureSpeed()
  Dim StartTime As Variant, EndTime As Variant

  ' 시작 시간 기록
  StartTime = Timer

  ' 측정하고 싶은 코드 (예: 1부터 10000까지의 합 계산)
  Dim sum As Variant
  For i = 1 To 1000000
    sum = sum + i
  Next i

  ' 종료 시간 기록
  EndTime = Timer

  ' 실행 시간 계산 및 출력
  'MsgBox ("실행 시간: " & EndTime - StartTime & " 초")
  MsgBox "매크로 실행 시간: " & Format(EndTime - StartTime, "0.00") & " 초"

  ' 또는 메시지 박스로 출력
  ' MsgBox "실행 시간: " & EndTime - StartTime & " 초"
End Sub

위는 인터넷에 돌아다니는 매크로 실행속도 측정 코드입니다.

1부터 100000까지 더하는 시간을 측정하여 팝업창으로 1/100초까지 보여줍니다.
  • 예제파일을 올려놓았습니다. 예제파일에 있는 버튼 누르시면 되요.

 

근데 이 실행속도가 A 컴에서는 0.05초  B 컴에서 0.5초가 걸려요.

B컴이 무려 10배나 느려진 건데요. 그 이유와 해결책을 알고 싶습니다.
  • 양컴 모두 엑셀2021버전도 동일,  64비트인것도 동일, 운영체제가 윈11인것도 동일. 엑셀>설정>옵션 이것까지 동일.  테스트는 완전 동일한 신품노트북(CPU, 하드, 메모리 등등 동일브랜드 동일제품. 생산년도도 동일) 을 완전히 밀어버리고 가장 첫 작업이 이 작업. 인터넷접속 일체 없음(설치단계부터 인터넷설정 건너뜀). 심지어 OS 와 엑셀 설치후 인터넷 브라우저를 여는 것도 안함은 물론 일체의 타 컴동작을 안함. 캐시파일이 쌓이고 그런것도 일체 없고 두 컴이 동일환경.
  • 이렇게 컴을 완전히 밀어버리고 테스트를 10번 정도를 반복했는데 꼭 A컴은 빠르고 B컴은 10배 느림.