Zellen löschen Daten in Excel mit VBA

Question

Ich möchte Daten in Excel-Zelle beginnend bei der zweiten Zelle für Spalten löschen: F, G, H, I, J, K, L, M bis zum Ende der Daten.

Mein versucht Code, dies zu lösen, ist unten, aber ich glaube, es sollte zum Löschen aller Daten bessere Antwort sein, um Daten in diesen Spalten enden:

Private Sub DeleteData() 
    Dim x 
    Dim y 
    Dim LastRow 
    Set xlApp = CreateObject("Excel.Application") 
    Set xlBook = xlApp.Workbooks.Open("C:\Master.xls", 0, True) 

    ' ## Open both workbooks first: 
    Set x = xlApp.Workbooks.Open("C:\Master.xls") 

    ' Now, copy what you want from x: 
    xlApp.Sheets("Data").Range("K:K").Copy 
    Set y = xlApp.Workbooks.Open("C:\SuiteOne.xls") 

    ' Now, paste to y worksheet: 
    y.Sheets("SuiteOneCaseFour").Range("E:E").PasteSpecial 

    'AutoFit 
    y.Sheets("SuiteOneCaseFour").Range("E:E").Columns.AutoFit 

    'Clear fields 
    LastRow = y.Sheets("SuiteOneCaseFour").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    y.Sheets("SuiteOneCaseFour").Range("F2:M" & LastRow).ClearContents 

    x.Save  
    x.Close 
    y.Save 
    y.Close 

End Sub 
DeleteData() 

Answer 1

Dim LastRow As Long 
LastRow = y.Sheets("SuiteOneCaseFour").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

y.Sheets("SuiteOneCaseFour").Range("F2:M" & LastRow).ClearContents 

Answer 2

versuchen Sie die folgenden geändert Code:

Option Explicit 

Private Sub DeleteData() 

Dim x As Workbook 
Dim y As Workbook 
Dim LastRow As Range 

Application.ScreenUpdating = False 

Set x = Workbooks.Open("C:\Master.xls") 

x.Sheets("Data").Range("K:K").Copy 
Set y = Workbooks.Open("C:\SuiteOne.xls") 

With y.Sheets("SuiteOneCaseFour") 
    .Range("E:E").PasteSpecial 
    .Range("E:E").Columns.AutoFit 
    Set LastRow = .Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) 
    If Not LastRow Is Nothing Then 
     .Range("F2:M" & LastRow.Row).ClearContents 
    End If 
End With 

x.Save 
x.Close 
y.Save 
y.Close 

Application.ScreenUpdating = True 

End Sub