외부 소스에서 데이터를 가져올 때 워크 시트에서 관련없는 데이터를 삭제해야 할 수 있습니다. 예를 들어 데이터에서 두 번째 줄마다 또는 다섯 번째 줄마다 제거해야 할 수 있습니다.

손으로이 작업을 수행하는 것은 지루하고 오류가 발생하기 쉽습니다. 다행히도 지루함과 오류를 모두 제거하는 데 도움이되는 매크로를 만들 수 있습니다.

다음 매크로 DeleteRows는 워크 시트에서 모든 X 행을 제거합니다. 적용 할 행을 선택하기 만하면됩니다.

쓰여진대로 매크로는 모든 두 번째 행을 제거합니다. 따라서 10 행부터 시작하는 첫 번째, 세 번째, 다섯 번째 및 일곱 번째 행을 삭제하려면 10 ~ 16 행을 선택한 다음이 매크로를 실행합니다. 10 행 (첫 번째 행), 12 (세 번째 행), 14 (5 번째 행), 16 행 (7 번째 행)이 삭제됩니다.

Sub DeleteRows()

Dim iStart As Integer     Dim iEnd As Integer     Dim iCount As Integer     Dim iStep As Integer     Dim J As Integer

iStep = 2    'Delete every 2nd row     Application.ScreenUpdating = False     iStart = 1     iCount = Selection.Rows.Count     'Find ending row to start deleting     For J = iStart To iCount Step iStep         iEnd = J     Next

Do While iEnd >= iStart         Selection.Rows(iEnd).Delete         iEnd = iEnd — iStep     Loop     Application.ScreenUpdating = True End Sub

다른 여러 줄을 삭제하려면 iStep 변수의 설정을 변경하면됩니다. 예를 들어, 다섯 번째 행마다 삭제하려면 iStep을 2에서 5로 변경합니다. (iStep = 2 선언에서 단일 변경 만 수행하면됩니다.)

_ 참고 : _

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

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

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

이 팁 (3592)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Deleting_Every_X_Rows [Deleting Every X Rows].