여러 셀에서 최대 값을 찾아 그 값을 다른 셀로 복사하십시오.

Question

많은 셀에서 최대 값을 찾아 다른 셀로 복사하려고합니다. 나는 많은 일을 시도했기 때문에 당신이 나를 도울 수 있었고 그들 중 누구도 일하지 않았기 때문에 고맙겠습니다. 나는 그것을 실행할 때마다

1. , 프로그램은 말한다 : 나는이 문제가

   Dim ROIrange As Range 
   Dim ROImax As Integer 
   For i = 1 To 30 
        ROIrange = Range("E" & (i + 4), "H" & (i + 4), "K" & (i + 4), "N" & (i + 4), "Q" & (i + 4), "T" & (i + 4), "H" & (i + 4)).Select 
        ROImax = Application.WorksheetFunction.Max(ROIrange) 
        Range("B" & (i + 4)).Value = ROImax 
        Next 
   

   : 여기

   내 코드의

을 여기에 범위을 강조 :

ROIrange = Range("E"... 

(작동하지 않았다 내가 한 문제 해결 - 넘어가 셔도됩니다)이 문제를 해결하기 위해 내 시도에서

, 나는 내가 7 2의 범위 기능에있는 값의 수를 변경했습니다. 이 변경은 프로그램이 더 진행될 수있게하지만, 평가를 원하지 않는 다른 셀을 선택하기 때문에 원하는 바가 아닌 상자를 선택하게됩니다.

은 그러나,이 프로그램이 문제에 달렸다 - 나는 첫 번째 행이 완전히 비어 있기 때문에이 아마 알았는데 (때로는 함께 내가 일하고 있어요 데이터 세트와 함께 발생으로하고 피할 수)

그러나, 데이터가있는 행을 참조하는 i = 2로 시작하도록 변경했습니다. 이것은 단순히이 오류가 발생했습니다 :

Answer 1

이 시도하십시오 : 하나의 문자열로 함께 세포의

Set ROIrange = Range("E" & (i + 4) & ",H" & (i + 4) & ",K" & (i + 4) & ",N" & (i + 4) & ",Q" & (i + 4) & ",T" & (i + 4) & ",W" & (i + 4)) 

장소의 범위.