Vba 문제: Range ("A 1: IV 1 ") 에 지저분한 숫자가 있습니다 (크기별로 정렬되지 않음). Vba 를 써서 이 숫자들을 넣어라.

아르? =? Range("A 1:IV 1)? Arr 배열에 셀 범위를 할당합니다

N? =? 256? 알려진 요소 수

뭐 때문에? 나? =? 1? 어디 가? N? -응? 1? 외부 주기 수

뭐 때문에? J? =? 1? 어디 가? N? -응? 나? 내부 주기 수

만약? Arr( 1, j)? & gt? Arr( 1, j? +? 1)? 그리고는요? 만약 그것이 다음보다 크면 위치를 교환한다.

T? =? Arr( 1, j)' 임시 저장

Arr( 1, j)? =? Arr( 1, j? +? 1)' 1 행을 이 행으로 이동합니다.

Arr( 1, j? +? 1)? =? T' 는 일시적으로 아래쪽 1 열에 할당됩니다

끝? 판단이 끝나면

다음? 내부 루프가 미리 결정된 횟수에 도달하면 종료됩니다.

다음? 외부 루프가 미리 결정된 횟수에 도달하면 종료됩니다.

Range("A 1:IV 1)? =arr' 이 정렬되고 원래 셀 영역으로 돌아갑니다.

물론 다른 셀 영역에 값을 지정할 수도 있습니다.

끝? 위의 Sub 는 VBA 코드이지만 공식도 간단합니다.

=SMALL($A 1:$IV 1, COLUMN(A 1))

수식은 A2 셀에 배치되고 IV 1 셀의 오른쪽에 채워집니다.