最後のセルの後の行を列内のデータで置換する

Question

コピーしたデータの最後の行の後にあるすべての行を列 "C"で削除するコードを探したいとします。

それでは、列Cの私のデータが行1265で終了し、コードはその後、すべての行を削除すると仮定されたとしましょう。..

おかげ

Answer 1

あなたはこのような何かをしようとする...

Sub DeleteRows() 
Dim LastRowColC As Long, LastRow As Long 
LastRow = ActiveSheet.UsedRange.Rows.Count 
LastRowColC = Cells(Rows.Count, "C").End(xlUp).Row 
If LastRow > LastRowColC Then 
    Rows(LastRowColC + 1 & ":" & LastRow).Delete 
    'OR 
    'Rows(LastRowColC + 1 & ":" & LastRow).Clear 
End If 
End Sub 

データはエクセルの表にある場合は、このようにそれをしようとは...

Sub DeleteRows() 
Dim LastRowColC As Long, LastRow As Long 
Dim tbl As ListObject 
Set tbl = ActiveSheet.ListObjects(1) 
LastRow = tbl.DataBodyRange.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
LastRowColC = tbl.DataBodyRange.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
If LastRow > LastRowColC Then 
    Rows(LastRowColC + 1 & ":" & LastRow).Delete 
End If 
End Sub