나는 VBa 코드를 이해하지 못한다. 누구 든 지 나를 위해 그것을 분석할 수 있습니까?

개인? Sub? 명령 버튼 1_Click ()

암담한가? R%

암담한가? 나%

암담한가? Arrive) 를 참조하십시오

암담한가? 압력 수용체 반사 반응

암담한가? D? 무엇으로? 목표

설정? D? =? Createobject ("scripting.dictionary")? 작성? 사전 한 권? 목표

무엇을 사용합니까? 워크시트 (2 페이지)

R? =? 。 셀 (Rows.Count,? 1). 끝내기 (xlUp). 긋다? 알겠어요? 시트 2? 표의 마지막 행

아르? =? 。 범위 ("a2:b"? & amp? R)? 알겠어요? A2? 도착하나요? B 열의 마지막 행? 2 차원 배열을 만듭니다.

위의 2 차원 배열에 따라 사전을 생성합니다.

뭐 때문에? 나? =? 1? 어디 가? UBound(arr)? 배열을 순회하다

만약? 그렇지 않나요? D. 존재 (arr(I, 1))? 그리고는요? 사전에 없다면? Arr (나, 1)

설정? D(arr(I, 1))? =? Createobject ("scripting.dictionary")? 사전 데이터 설정

끝? 만약

D(arr(I, 1)(arr(I,? 2))? =? ""

그리고 나서

C? =? 。 세포 (5,? 。 Columns.Count) 를 참조하십시오. 끝내기 (xlToLeft). 칼럼? 행 5 의 마지막 열 번호를 가져옵니다.

。 범위 ("F6") 입니다. 크기 조정 (1,? C? -응? 5). 내용을 지우시겠습니까? 잘 아세요? F6 이요? 셀, 1 행 아래로 이동, 오른쪽으로 이동? C-5 는요? 열 영역의 내용

아르? =? 。 범위 ("F5") 입니다. 크기 조정 (2, c? -응? 5)? 알겠어요? F5? 셀, 두 줄 아래로 이동, 오른쪽으로 이동? C-5 는요? 칼럼? 내용을 입력하고 배열에 저장합니다.

뭐 때문에? J? =? 1? 어디 가? UBound(arr, 2)? 배열의 두 번째 차원에서 최대 레코드 수를 가져옵니다.

Brr? =? 분할 (arr (1,j)? "-")? 배열의 1 차원 요소에? 분열? 끝

뭐 때문에? K? =? CDate(brr(0))? 어디 가? CDate(brr( 1))? 위의 분할 문자열을 날짜 유형으로 변환하고 반복합니다.

만약? 존재합니까? 그리고는요? 사전에 날짜가 있는 경우.

아르 (2, j)? =? 아르 (2, j)? +? D(k). 세어? 윌. 아르 (2, j)? 의 내용을 (으) 로 변경하시겠습니까? 원본 내용+사전에 있는 해당 키워드의 총 수

끝? 만약

그리고 나서

그리고 나서

。 범위 ("F5") 입니다. Resize(UBound(arr), UBound(arr, 2))? =? 아르? 배열을 셀 영역에 다시 씁니다.

끝? 따라

끝? 잠수함