Excel - 10 행마다 최대 값 찾기 및 행 표시

발행물

나는 수식을 만드는 데 도움이 필요합니다. 가장 높은 값과 가장 낮은 값을 10 행마다 식별 THEN 가장 높고 가장 낮은 값을 가진 행의 빈 열에 텍스트 나 숫자를 배치하여 두 행을 식별하십시오. 예를 들어, 열 10 행에 대해 가장 높고 가장 낮은 거래 가격에 대해서만 열 A3에 단어를 반환하고 싶습니다. 이렇게하면 데이터를 유지하고 다른 8 행의 데이터를 삭제하여 데이터를 정렬 할 수 있습니다. 이렇게하면 대부분의 데이터 무결성을 유지하고 파일 크기를 크게 줄일 수 있습니다.

Excel 2007을 사용하고 있으며 데이터 행이 160, 000 개 있습니다. 공식의 목적은이 데이터를 80 %까지 줄이는 것입니다.

아래 스프레드 시트는 간단한 예제를 제공합니다.

 무역 시간 가격 C는 수식 계산을위한 빈 칸입니다. ___________A____________B_____________C 1 행 19:30:25 121.81 2 행 19:30:26 121.80 3 행 계속 19:30:29 121.83 4 행 19:30:31 121.86 행 5 유지 19 : 39 : 35 121.84 

어떤 도움이라도 대단히 감사하겠습니다.

해결책

"test", "test1"및 "undo"의 세 가지 매크로가 있습니다. Test1은 "test"에 내장되어 있으므로 "test"매크로 만 실행하면 충분합니다.

세 개의 매크로가 모두 모듈에 있어야합니다. 매크로 "실행 취소"는 매크로 결과를 실행 취소합니다.

31 행에 대한 데이터를 추출하여 매크로를 확인하십시오. 결과가 정상이면 원본 파일에서 매크로를 사용할 수 있습니다.

원본 파일을 안전하게 보관하십시오. 그러면 복구 할 수 있습니다.

매크로 1 :

 ( "sheet1"). 범위 ( "c1") 활성화 범위, r1 범위로, x1 배수로, y2 배로 j 정수로, = "신호"설정 r = 범위 (범위 ( "B1"), 범위 ( "B1"), 끝 (xlDown)) j = 1 m = 1 Do r = 셀 (j * m + 1, "B") MsgBox r.Address Set r1 = 범위 (r, r.Offset (9, 0)) MsgBox r1.Address If r.Offset (9, 0) = ""그런 다음 Exit x = WorksheetFunction.Min (r1) y = WorksheetFunction .Max (r1) MsgBox x MsgBox yk = WorksheetFunction.Match (x, r2, 0) 셀 (k, "c") = "유지"k = WorksheetFunction.Match (y, r2, ") ="유지 "m = m + 10 MsgBox m 루프 test1 End Sub 

매크로 2 :

 Sub test1 () 워크 시트 ( "sheet1") 활성화 r = 범위 (범위 ( "A1"), 범위 ( "A1") End (xlDown) .Offset (0, 3)) r.AutoFilter 필드 : = 3, Criteria1 : = "유지"r.Cells.SpecialCells (xlCellTypeVisible) .Copy Worksheets ( "sheet2"). 범위 ( "A2") ActiveSheet.AutoFilterMode = False End Sub 

매크로 3 :

 Sub undo () 워크 시트 ( "sheet1") 범위 ( "c1") EntireColumn.Delete 워크 시트 ( "sheet2") Cells.Clear End Sub 

노트

이 팁에 대한 venkat1926에게 감사드립니다.