VBA 실행 합

Question

이의 내가 2 열이 있다고 가정 해 봅시다 나는 제품 ID의 행을 루프에 VBA 코드를 작성하고 3 열을 만들 수 있도록하려면

Product ID Price Average 
1    4  5 
1    4  5 
1    7  5 
2    3  3 
2    3  3 
3    9  9 

(다음 표는 결과 포함) 그것은 평균값을 가지고있다.

For 문이 작동한다고 생각하지만 각 ID를 저장하기 위해 임시 변수를 어떻게 정의합니까?

감사합니다.

Answer 1

Vasily와 L.Dutch가 말한대로 AVERAGEIF() 기능 만 있으면 충분합니다. 모든 세포를 통해 루프를 원하는 경우,이 같은 Do While 루프를 사용할 수 있습니다

는

Sub avg() 
Dim i As Integer 
i = 2 
Do While Range("A" & i).Value <> "" 
    Range("C" & i).FormulaR1C1 = "=AVERAGEIF(C1,RC1,C2)" 
    i = i + 1 
Loop 
End Sub