Saya memiliki variabel panjang X yang berisi angka. Katakanlah itu 415.
Bagaimana cara menghapus semua yang ada di lembar kerja dari Baris 415 ke bawah?
Saya ingin memastikan spreadsheet saya bersih di Baris 415 dan apa pun yang mungkin ada di bawahnya.
Bagaimana saya melakukan ini? Terima kasih.
Sepertinya hal seperti di bawah ini sesuai dengan kebutuhan Anda:
With Sheets("Sheet1")
.Rows( X & ":" & .Rows.Count).Delete
End With
Dimana X adalah variabel yang = nomor baris (415)
Pilihan lainnya adalah Sheet1.Rows(x & ":" & Sheet1.Rows.Count).ClearContents (atau .Clear). Alasan Anda mungkin ingin menggunakan metode ini daripada .Delete adalah karena setiap sel dengan dependensi dalam rentang yang dihapus (misalnya rumus yang merujuk ke sel tersebut, meskipun kosong) akan menampilkan #REF. Metode ini akan mempertahankan referensi rumus ke sel yang dibersihkan.
Fungsi ini akan menghapus data sheet mulai dari baris dan kolom tertentu:
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
Referensi apa pun ke 'Baris' harus menggunakan 'panjang' bukan 'bilangan bulat' jika tidak maka akan meluap jika spreadsheet memiliki banyak data.
