VBA/Excel에서 X행 아래의 모든 항목을 삭제하려면 어떻게 해야 합니까?

VBA/Excel에서 X행 아래의 모든 항목을 삭제하려면 어떻게 해야 합니까?

숫자를 포함하는 긴 변수 X가 있습니다.415라고 해.

415행 이하의 워크시트를 모두 삭제하려면 어떻게 해야 합니까?

내 스프레드시트가 415열과 그 아래에 있는 다른 모든 것이 깨끗한지 확인하고 싶다.

이거 어떻게 해?감사해요.

다음과 같은 것이 고객의 요구에 적합할 것으로 생각됩니다.

With Sheets("Sheet1")
    .Rows( X & ":" & .Rows.Count).Delete
End With

여기서 X는 = 행 번호(415)인 변수입니다.

또 다른 옵션은Sheet1.Rows(x & ":" & Sheet1.Rows.Count).ClearContents(또는.Clear) 대신 이 방법을 사용해야 합니다..Delete삭제된 범위에 종속성이 있는 모든 셀(예를 들어 빈 셀이라도 해당 셀을 참조하는 공식)이 최종적으로 표시되기 때문입니다.#REF이 메서드는 클리어된 셀에 대한 수식 참조를 유지합니다.

이 함수는 지정된 행 및 열부터 시트 데이터를 지웁니다.

Sub ClearWKSData(wksCur As Worksheet, iFirstRow As Integer, iFirstCol As Integer)

Dim iUsedCols As Integer
Dim iUsedRows As Integer

iUsedRows = wksCur.UsedRange.Row + wksCur.UsedRange.Rows.Count - 1
iUsedCols = wksCur.UsedRange.Column + wksCur.UsedRange.Columns.Count - 1

If iUsedRows > iFirstRow And iUsedCols > iFirstCol Then
    wksCur.Range(wksCur.Cells(iFirstRow, iFirstCol), wksCur.Cells(iUsedRows, iUsedCols)).Clear
End If

End Sub

'Row'에 대한 참조는 'integer'가 아니라 'long'을 사용해야 합니다. 그렇지 않으면 스프레드시트에 많은 데이터가 있을 경우 오버플로우됩니다.

언급URL : https://stackoverflow.com/questions/11835997/how-do-i-delete-everything-below-row-x-in-vba-excel