VBA 를 사용하여 찾기 및 계산

Dim co 1, CO2, co3, co4 는 정수입니다

Co 1 = 범위 ("A3")

Co2 = 범위 ("D3")

Co3 = 범위 ("E3")

Co4 = 범위 ("F3")

A, b, c, r 을 정수로 표시합니다

R = 범위 ("A65536"). 끝내기 (xlUp). 줄

C = 0

A = 1 에서 r 까지의 경우

숫자 (셀 (a, CO3)) = true 인 경우 (셀 (a, CO 1) 는 "* 총 가격 공제에 포함되지 않음 *" _

Orcells (a, co 1+ 1) 예: "* 총 가격 공제에 포함되지 않음 *")

셀 (a, co3+1) =-1 * 셀 (a, co3)

기타

If 셀 (a, 1) 입니다. MergeCells = False 인 경우

B = 1 ~ 200 의 경우

If 셀 (a, co 1). Text = 셀 (b, CO2). 텍스트 다음 c = c+1

If 셀 (a, co 1+1). Text = 셀 (b, CO2+1). 텍스트 다음 c = c+1

C>= 1 인 경우 셀 (a, co3) = 셀 (b, co4): 종료

다음 b

C = 0 이면

셀 (a, co3) = "새 항목"

그럼 ElseIf c = 1

Cells(a, co3).Font.ColorIndex = 10

만약 ... 끝날거야

만약 ... 끝날거야

C = 0

If IsNumeric(Cells(a, co3)) = True, IsNumeric(Cells(a, co3-1)) = True MergeCells = False _

그런 다음 셀 (a, co3+1) = 셀 (a, co3) * 셀 (a, co3-1)

만약 ... 끝날거야

다음 a

끝단 접합