때로는 다른 사람으로부터 워크 시트를받을 수 있으며 제공된 정보에 대해 작업 할 공간이 필요합니다. 예를 들어 데이터 테이블의 각 원래 행 사이에 빈 행을 추가하는 것이 도움이 될 수 있습니다. 삽입 메뉴를 사용하면이 작업을 쉽게 수행 할 수 있지만, 특히 펼칠 큰 표가있는 경우에는 금방 지루해질 수 있습니다.

다음 매크로는이 상황에서 엄청난 도움이 될 것입니다. 데이터 테이블에서 첫 번째 행을 선택하기 만하면됩니다. 매크로를 실행할 때 원래 행 사이에 삽입 할 빈 행 수를 묻습니다. 숫자를 제공하면 매크로가 테이블을 단계별로 실행하고 빈 행을 삽입하기 시작합니다. 원래 테이블 이후의 첫 번째 빈 셀이 감지되면 매크로가 중지됩니다.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2344)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Spreading_Out_a_Table [테이블 펼치기].