2017-04-04 3 views
0

그래서 나는 무작위로 공백이있는 열이 있습니다. 공백 만 선택하고 그 빈 셀에는 그 위에 셀의 값을 붙여 넣는 매크로가 필요합니다. select 부분은 분명 쉽지만 공백으로 수식을 채울 때 '너무 많은 연속'에 대한 오류가 계속 발생합니다. 그림을 포함 시켰습니다. 첫 번째 열은 'before'이고 두 번째 열은 매크로를 적용한 후 어떻게 보이게 할 것인지입니다.Excel에서 매크로를 만들어 컬럼에서 공백을 찾은 다음 공백 셀 위의 값을 채 웁니다. 설명하기 위해 포함 된 그림

매크로가 두 번째 열이나 뭔가 좋은 것을 만들 필요가있는 경우 최종 결과가 그림과 같이 보이는 한. 감사!

Picture to illustrate.

+2

오, 세상에 나는 밀도가 있습니다 ... 새 열, 다음 = IF (A2 = "", A1, A2) 어떻게 그리워 했나요? – user2333837

답변

2

시도,

sub fillblankfromabove() 
    dim blnks as range 
    with worksheets("Sheet1").Columns("E").Cells 
     set blnks = .specialcells(xlcelltypeblanks) 
     if not blnks is nothing then 
      blnks.formular1c1 = "=r[-1]c" 
     end if 
     .value = .value 
    end with 
end sub 
0

이 작업을 수행하는 또 다른 방법은 다음 '빈 셀'을 선택, Ctrl 키를 + G, 특별 선택이 과정에 포함 할 모든 셀을 선택하는 것입니다 . 선택한 범위 내의 모든 빈 셀이 선택됩니다. 그런 다음 =[cell above]을 입력하고 CTRL + ENTER를 누르면 해당 수식이 선택된 모든 셀에 입력됩니다.