매크로 크기별로 상황 정렬-매크로
Dim m m, n, o, p, q, r, s, t, u, v, w 등 길이
어둡게 RNG As 범위
Dim I, j 는 정수입니다
Dim Mn 이 Double 입니다
M = 범위 ("A65535"). 끝내기 (xlUp). 줄
셀 (1, 2). Value = "공식 1, 자리 찾기"
세포. 대체 무엇: = "공식 1, 자리 찾기", 대체: = "= len (A 1) ",보기: = xlpart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
범위 ("B 1"). 고르다
선택。 자동 채우기 대상: = range ("b1:b" & M), 유형: =xlFillDefault
범위 ("b1:b" & M). 고르다
열 (B:B). 고르다
선택。 복사
선택。 Paste special paste: = xlpastevalues, Operation:=xlNone, SkipBlanks _
: = false, 리턴됨: = false
O = 1 ~ m 의 경우
P = 세포 (o, 2). 가치
Q = 1 끝 p 의 경우
R = 셀 (o, 1) 입니다. 가치
R = 왼쪽 (r, q)
R = 오른쪽 (r, 1)
세포 (o, q+4). 값 = r
그리고 나서
그리고 나서
T = 1 ~ m 의 경우
P = 세포 (t, 2). 가치
Set RNG = Range(Cells(t, 5), Cells(t, 5+p-1))
I = 1 to RNG 의 경우. 숫자를 세다
J = I+1 to RNG 의 경우. 숫자를 세다
Rng 인 경우. 셀 (j) < Rng. 세포 (I) 그리고
Mn = RNG 입니다. 셀 (1)
Rng. 세포 (i) = RNG. 셀 (j)
Rng. 세포 (j) = Mn
만약 ... 끝날거야
그리고 나서
그리고 나서
그리고 나서
T = 1
T = 1 ~ m 의 경우
P = 세포 (t, 2). 가치
V = 0
U = 1 끝 p 의 경우
V = v& 세포 (t, u+4)
그리고 나서
세포 (t, 3). 값 = v
범위 (셀 (t, 5), 셀 (t, 5+p)). 분명하다
그리고 나서
범위 ("b1:b" & M). 분명하다
범위 ("b 1"). 값 = "실행 결과:"
Dim a, c, d, e 만큼 길다
Dim b As Stringa = Range("A65535 "). 끝내기 (xlUp). RowFor c = 1 끝 ad = Len (셀 (c, 1)). 본문)
E = 1 에서 d-1, b =
B = 0 & ampbNextRange(" F "& amp；; C) = "= 텍스트 ("& "C" 와. C& ",""& ampb & amp" """"""다음 열 ("F:F"). 고르다
선택。 복사
열 (C:C). 고르다
선택。 Paste special paste: = xlpastevalues, Operation:=xlNone, SkipBlanks _
: = false, 리턴됨: = false
열 (F:F). 고르다
신청하다. CutCopyMode = False
선택。 내용을 지우다
범위 ("D 1"). 끝 연결구를 선택합니다
크기별 하위 정렬 시나리오 2 ()
`
크기별로 사례 2 매크로 정렬
`
`
Dim mm, nn, oo 만큼 길다
Dim I, j 는 정수입니다
어둡게 RNG As 범위
Dim Mn 이 Double 입니다
Mm = 범위 ("A65535"). 끝내기 (xlUp). 줄
Oo = 1 to mm 의 경우
Nn = 적용. CountA (범위 (oo & amp":" & ampoo))
Set RNG = Range(Cells(oo, 1), Cells(oo, nn))
I = 1 to RNG 의 경우. 숫자를 세다
J = I+1 to RNG 의 경우. 숫자를 세다
Rng 인 경우. 셀 (j) < Rng. 세포 (I) 그리고
Mn = RNG 입니다. 셀 (1)
Rng. 세포 (i) = RNG. 셀 (j)
Rng. 세포 (j) = Mn
만약 ... 끝날거야
그리고 나서
그리고 나서
NextEnd Sub