Excel 2010 매크로 :보다 큰 숫자보다 큰 숫자의 셀을 모두 바꾸기

Question

여러 셀을 동일한 셀 범위 내에서 바꿀 수있는 큰 Excel 시트가 있습니다. 예를 들어, -5보다 크고 5보다 작은 모든 숫자를 숫자 0으로 대체하려고합니다. 5보다 크고 10보다 작은 모든 숫자는 1로 대체해야하고, -10보다 크고 -5보다 작은 모든 숫자는 -1 등으로 바뀝니다.

나는이 0으로 모든 것을 대체 마찬가지로, this 솔루션 중 하나 트릭을하지 않는 매우 트릭을하지 않습니다이 공식

Sub replace() 
    Dim rng As Range 

    For Each rng In Range("B2:AI40") 
     If IsNumeric(rng) < 5 And IsNumeric(rng) > -5 Then 
      rng = 0 
     End If 
    Next rng 
End Sub 

를 사용했습니다. 내 필요에 맞게 수식을 수정하거나 그렇게 할 수없는 대체 방법은 무엇입니까?

감사합니다.

Answer 1

는

Sub replace() 
    Dim rng As Range 

    For Each rng In Range("B2:AI40") 
     If rng.Value < 5 And rng.Value > -5 Then 
      rng = 0 
     End If 
    Next rng 
End Sub 

IsNumeric 모든 셀이 전에 0으로 설정 한 이유 0 또는 1, 그건 반환하거나 부울 함수입니다보십시오. \ (당신은 정수 나누기를 사용할 때

Sub replace() 
    Dim rng As Range 

    For Each rng In Range("B2:AI40") 
     If IsNumeric(rng) then 
      If rng.Value < 5 And rng.Value > -5 Then 
       rng = 0 
      End If 
     End if 
    Next rng 
End Sub 

전체 작업이 간단 (및 거래 당신이 언급 한 당신은 다른 경우와도) 가져옵니다 당신이 당신의 세포에서 숫자가 아닌 값을 기대한다면, 당신은이 코드를 사용해야 할 수도 있습니다) 5 :

Sub replace() 
    Dim rng As Range 

    For Each rng In Range("B2:AI40") 
     If IsNumeric(rng) then 
      rng = rng.Value \ 5 
     End if 
    Next rng 
End Sub 

Answer 2

답변으로 선택하지 마십시오.

이 게시물은 실제로 사용하는 것보다 훨씬 빠른 방법을 보여주기위한 것입니다. 기술적으로 당신은 B2:AI40에있는 모든 세포를 반복하고 있습니다. 즉, 코드가

여기에만 17 루프

를 사용하여 훨씬 더 빠른 방법입니다 1326 번 ( =34 Cols * 39 Rows를) 루핑

논리 : 즉 6에서

1. < 10과> 5 (, 7,8,9가 1로 대체 됨)
2. < 5 그리고> -5 (다른 말로하면 -4, -3, -2, -1,0,1,2,3,4가 0으로 대체 됨))
3. < -5 그리고 > -10 (즉 -6, -7, -8, -9 -1로 대체 함) 대신에 어느 셀 루핑, 우리가 기술적 상기 번호를 검색 .Replace를 사용한다 지금

을 은 1326과 비교하여 17 회만 반복됩니다!

이 완벽하게 작동,

Option Explicit 

Sub replace() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim i As Long 

    Set ws = ThisWorkbook.Sheets("Sheet1") 
    Set rng = ws.Range("B2:AI40") 

    With rng 
     For i = 6 To 9 '<~~ 4 loops 
      .replace What:=i, Replacement:="1", LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Next i 

     For i = -4 To 4 '<~~ 9 loops ; 7 if when i = 1 or 0 it doesn't do anyting 
      If i <> 1 And i <> 0 Then 
       .replace What:=i, Replacement:="0", LookAt:=xlWhole, _ 
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
       ReplaceFormat:=False 
      End If 
     Next i 

     For i = -9 To -6 '<~~ 4 loops 
      .replace What:=i, Replacement:="-1", LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Next i 
    End With 
End Sub