2013-10-08 3 views
0

일련의 5000 라인 Excel 문서를 mySQL로 내 보내야합니다. 문제는 Excel 파일이 반복적으로 병합되었습니다. 나는 그것이 (A3, A4 등)을 합병 된 이후 각 컬럼에 (현재 A2)에 자선의 이름을 삽입해야Excel에 병합 된 Excel 셀

 A1 CHARITY NUM  AMT 
+ A2 name  1  $100 
| + A3    2  $105 
| | A4    2  $105 
| L A5    5  $105 
L A6    5  $105 
+ A7 name2  1  $100 
| + A8    2  $105 
| | A9    2  $105 
| L A10    5  $105 
L A11    5  $105 

: (http://cgtest.forakergroup.com/images/excel.png 스크린 샷에 링크를 참조하십시오).

Excel에서 병합 된 셀을 다시 채우는 기능이 있습니까?

+0

모든 셀을 병합 해제 한 다음 위의 첫 번째 비어 있지 않은 셀의 값으로 모든 공백을 채우는 매크로를 작성할 수 있습니다. – ApplePie

+0

매크로가 기본 솔루션 인 경우 * 대답 * (코드를 읽기 쉽도록)으로 게시 한 다음 [* accepting *] (http://stackoverflow.com/help/accepted-answer) 그것? – pnuts

답변

0

다음 매크로는 모든 셀이 병합되지 않는 한 모든 공백을 채 웁니다.

Sub Fill_Empty() 
Dim oRng As Range 
Set oRng = Selection 
Selection.Font.Bold = True 
Selection.SpecialCells(xlCellTypeBlanks).Select 
Selection.Font.Bold = False 
Selection.FormulaR1C1 = "=R[-1]C" 
oRng.Copy 
oRng.PasteSpecial Paste:=xlValues, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False 
End Sub 

Levasseur에게 매크로 작성 제안을 보내 주셔서 감사합니다.

1

나는 당신이 생각하는 것을 필요로한다면 기능이 필요하지 않으며 (코드도 아니다). 까지 = 키 & 선택, 블랭크, 찾기, Ctrl 키 + 를 입력합니다 - 그냥 관련 칼럼 홈> 편집을 선택합니다.

+0

내가 잘못하지 않으면 한 번에 하나의 그룹 만 변경됩니다. 매크로가 전체 시트를 업데이트합니다. – wfinley

+0

셀이 실제로 병합되면 (예 : 이름이 네 개의 빈 셀보다 커야 함) 먼저 열을 병합 해제해야합니다. 그렇지 않으면 한 번에 전체 기둥에 적용해야합니다. 그러나 병합 된 이후의 각 열 (A3, A4 등)을 언급하면 ​​올바르게 해석되지 않을 수 있습니다. 여기에 관심있는 동영상이 있습니다. http://www.youtube.com/watch?v=9TDcVOKbm34 – pnuts