2014-11-26 3 views
0

내 시나리오는 다음과 같습니다. A부터 J까지 10 개의 열, 100 개의 행. 각 행은 1 ~ 10 개의 항목을 가질 수 있습니다.VBA - 데이터가있는 인접 셀 수를 기반으로 행 삽입하기

각 행의 데이터가 포함 된 셀 수를 계산하고 방금 계산 한 행 아래에 동일한 양의 행을 삽입해야합니다.

EX : 행 1 열 AD에 항목이, 그때 아래에 삽입 4 개 행을해야 할 것 1 행 EX2 : 행 20 열 AG의 항목이있다, 그럼 난 7 개 행이 행 아래에 삽입해야 할 것 20

도움이된다면 크게 환영합니다

답변

-1

이것은 완전한 대답은 아니지만 잘하면 올바른 방향으로 인도 할 것입니다.

Dim RowNum as integer 
Dim ColNum as integer 
Dim NumRowsToInsert as integer 


For RowNum=100 to 1 
    NumRowsToInsert=0 
    For ColNum=1 to 10 
     If cell has value, then 
     NumRowsToInsert=NumRowsToInsert+1 
     End if 
    Next ColNum  
    insert coding to insert "NumRowsToInsert" rows below row "RowNum" here 
Next RowNum 

이 논리는 유용합니다. 하지만 코딩을 수정해야합니다.