각 부분합 다음에 줄을 추가하십시오.

-8

각 부분합 다음에 행을 삽입 할 매크로가 필요합니다. 원하는 결과를 보려면 아래 그림을 참조하십시오.각 부분합 다음에 줄을 추가하십시오.

2017-11-11 Gabe Carvajal

당신을 위해 좋은! 허가를 요청 했습니까? 또는 이미 작성한 코드와 관련하여 특정 질문을 했습니까? – Jeeped

@ 지프 - 내가 들었던 사람들 중 가장 멋지다. D –

@ E.Villiger- 토요일이라해도 토요일이라해도 이것은 내가 만난 가장 가늘고, 게으르고, 자기 자격이있는 질문 중 하나이다. 꽤 오래. – Jeeped

For i = 1000 to 1 Step -1 ' adjust 1000 to the row number of the last element 
    If Cells(i,1).Font.Bold And Cells(i,1) <> "" then 
     Cells(i+1,1).EntireRow.Insert 
    End If 
Next

출처

2017-11-11 19:10:08

아래에서 위로 작업 할 수 있습니다. – Jeeped

사실, 그 방법으로 더 단단해질 것 같아요, 내 대답을 편집 할게요. –

행을 삽입하거나 삭제할 때는 항상 아래에서 위로 작업하십시오. 그렇지 않은 경우 반복을 수행하는 동안 및 삽입 할 때 행을 건너 뛰게 될 위험을 삭제할 때 새로 삽입 된 행을 사용하여 인위적으로 범위를 확장합니다. – Jeeped

각 부분합 다음에 줄을 추가하십시오.

답변

관련 문제