I = 4
10 은 k = 1 부터 10 을 의미합니다
J = I 에서 I+10 까지의 경우
셀 (j, 1) = ""이면 끝납니다
If 셀 (j,1) < & gt 셀 (j+1, 1) 은
줄 (j+1). 삽입
셀 (j+ 1, 1) = "작은 계획"
범위 (셀 (I, 5), 셀 (j+1, 5). 고르다
셀 (j+1, 5) 입니다. 활동을 하다
ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"
범위 (셀 (I, 7), 셀 (j+1, 7). 고르다
셀 (j+1, 7) 입니다. 활동을 하다
ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"
20 으로 이동합니다
만약 ... 끝날거야
그리고 나서
줄 (j+1). 삽입
셀 (j+ 1, 1) = "작은 계획"
범위 (셀 (I, 5), 셀 (j+1, 5). 고르다
셀 (j+1, 5) 입니다. 활동을 하다
ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"
범위 (셀 (I, 7), 셀 (j+1, 7). 고르다
셀 (j+1, 7) 입니다. 활동을 하다
ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"
20 I = j+2
그리고 나서
끝단 접합