EXCEL VBA 통계 코드?

프로그램 코드 차트:

구현 효과:

프로그램 텍스트:

명시적 옵션

하위 매크로 1 ()

Dim a (), d( 1 ~ 9) 를 목적어로, e (), h (), I & ampj & amp, n&, ST 를 워크시트로 사용합니다

워크시트의 각 ST' 에 대해 모든 워크시트에 대해 다음을 수행합니다

거룩한 이름<& gt 가 "복권 데이터" 라면

테이블을 교환하고 내용을 배열에 배치합니다.

성활성화

매개변수 영역 처리: 사전을 만들고 1-9 는 H-P 의 행 번호를 나타냅니다.

A = st.range ("h1:p1")

I = 1 끝 UBound(a, 2) 의 경우

그렇지 않다면 d(i) 는 아무것도 아니다

D (a). 모두 삭제

기타

Set d(i) = CreateObject ("스크립트. 사전) 을 참조하십시오

만약 ... 끝날거야

A( 1, i) = Trim(a( 1, I))

J = 1 끝 Len(a( 1, I)) 의 경우

D(i)(Mid(a( 1, I), j,1) =1

다음 J.

다음으로 저는

데이터 영역 처리

N = 열 St. Cells (St. Rows) 의 마지막 행의 행 번호입니다. 수, "E"). 끝내기 (XLUP). 행 E.

N>= 9 인 경우 9 행 미만의 테이블은 건너뜁니다.

E = st.range (st.cells (9, "e"), st.cells (n, "g))' 예: g- 소스 배열.

H = st.range (st.cells (9, "h"), st.cells (n, "p))' h:p- 결과 배열.

I = 1 하한까지 (e)

J = 1 ~ 3 의 경우

E(i, j) = Trim(e(i, j))

다음 J.

E(i,1) < & gt ""및 e(i, 2) < & gt ""및 e(i, 3) < & gt ""그럼

J = 1 끝 UBound(a, 2) 의 경우

D(j)(e(i, 1))+d(j)(e(i, 2))+d(j)(e(i, 3) 그럼 = 2

H(i, j) = 2

기타

H(i, j) = 비어 있음

만약 ... 끝날거야

다음 J.

만약 ... 끝날거야

다음으로 저는

배열 쓰기 되돌림 테이블

St.Range(st.Cells(9, "h"), st.Cells(n, "p")) 포함

。 고르다

。 값 = h

로 끝맺다

만약 ... 끝날거야

만약 ... 끝날거야

다음 거리

끝단 접합