반응형
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
반응형
'programing' 카테고리의 다른 글
Swift 클래스 오류: super.init 호출 시 속성이 초기화되지 않았습니다. (0) | 2023.04.12 |
---|---|
HRESULT로부터의 예외: 0x80070057 (E_INVALIDARG) (0) | 2023.04.12 |
문자열 C#의 줄 바꿈 치환 (0) | 2023.04.12 |
NSMutable 딕셔너리에 액세스하기 위한 Objective-C의 각 루프에 대해 (0) | 2023.04.12 |
Swift에서 문자열을 연결하려면 어떻게 해야 하나요? (0) | 2023.04.12 |