VBA 코드를 사용하여 다중 조건 및 테이블을 작성하는 방법은 무엇입니까?

Dim SData As 범위

Dim DData As 범위

Dim RowSta 는 길이가 같고 RowLas 는 길이가 같습니다

Dim ColSta 는 길이가 같고 ColLas 는 길이가 같습니다

벨트 범위 ("A 1"). 현재 영역

RowSta =. Find ("name ",,,,xlPart). 행+1.

ColSta =. Find ("name ",,,,xlPart). 열 +2.

RowLas =. 열 (1). 발견 ("접근?" 쌀 ",,,xlPart). 행 65438 +0.

ColLas =. Find ("sign ",,,,xlPart). 세 번째 열.

로 끝맺다

Set DData = Range (셀 (RowSta, ColSta), 셀 (RowSta, ColLas))

SData = DData 를 설정합니다. 오프셋 (-1, 0)

I = RowSta ~ RowLas 의 경우

세포 (I, ColLas+2) = 적용. SumProduct(SData, DData)

DData = DData 를 설정합니다. 오프셋 (1, 0)

다음으로 저는

끝단 접합