나는 그 위의 특정 수의 셀에서 가장 큰 값 (양수 또는 음수)을 찾고 그 아래에 붙여 넣기를 원한다. 아래는 출력 셀 위의 6 셀에 대해 최대 값을 찾는 코드입니다. 그러나 분석 할 셀의 수가 6보다 많거나 6보다 작 으면 가장 큰 값을 찾는 방법을 모르겠습니다. 그 위에 정확히 "n"개의 셀이있는 셀의 여러 그룹 값을 찾기 위해 반복됩니다. 빈 셀을 만들어 최대 값을 찾습니다. 나는 루프를 만들었지 만 나는 이것에 붙어있다. 내 접근법이 잘못되었다고 생각합니다. 얼마나 많은 경우가 있는지 알 수 있습니다. 입력 상자를 만들어 사용자에게 몇 개의 사례가 있는지 알려줌으로써 그 많은 행 뒤에 빈 행을 만들 수 있도록 요청할 수 있습니다. 그러나 나는 값을 계산하는 데 사용할 수식에 집착하고 있습니다. 수식 안에 변수를 삽입 할 수 없습니다. 이것을하기위한 다른 접근법이 있다면, 나는 그것을 위해 일합니다.
Sub maxvalue()
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Dim nRng As Range
Set oRng = Range("A4")
iRow = oRng.Row
iCol = oRng.Column
Do
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
Cells(iRow + 1, iCol).EntireRow.Insert Shift:=xlDown
Cells(iRow + 1, iCol + 1).Value = "max"
Cells(iRow + 1, iCol + 2) _
.FormulaR1C1 = "=IF(ABS(MAX(R[-6]C:R[-1]C))<ABS(MIN(R[-6]C:R[-1]C)),MIN(R[-6]C:R[-1]C),MAX(R[-6]C:R[-1]C))"
iRow = iRow + 2
Else
iRow = iRow + 1
End If
Loop While Not Cells(iRow, iCol).Text = ""
End Sub
샘플 데이터를 업로드하고 가져 오려는 값을 지적 해 주시겠습니까? MAXIMUM Absolute를 찾으면 이전 또는 포지션은 중요하지 않습니다 !!
—
Rajesh S
@RajeshS 나는 명확성을 위해 게시물을 업데이트했다.
—
Baaki Nira
그래서 당신은 VBA 솔루션이나 수식이 필요하십니까? 샘플 데이터에 물어보고 싶은 또 한 가지는 매 7 번째 값이 Max라는 것을 보여줍니다! n 번째 줄 이후에 맥스를 찾으십니까?
—
Rajesh S
@RajeshS 내가 가지고있는 코드에서 어떻게 수정할 수 있는지 모르겠습니다. 문제가있는 경우 VBA 솔루션이 필요할 수 있습니다. 그러나 수식 만 수정하여 n 번째 행 이후에 최대 값을 얻을 수 있다면 나에게 완벽합니다. 몇 번이나 10 건이나 3 건 밖에 없기 때문에 n 번째 줄을 원합니다.
—
Baaki Nira
두 가지 다른 수식을 만들었습니다. 첫 번째 열에는 7 번째 값이 반환되고 두 번째 열에는 7 번째 값마다 값이 반환됩니다. 이제이 기능이 귀하에게 도움이 될 것입니까?
—
Rajesh S