如何使用 VBA 复制后清除多个 Excel 电子表格中的数据

如何使用 VBA 复制后清除多个 Excel 电子表格中的数据

我是 VBA 新手,我有一些代码可以将多个电子表格中的数据传输到一个主电子表格中。这可以正常工作,但最后我需要清除每个电子表格中的日期数据,以便第二天可以再次传输数据而不会重复。我可以在脚本末尾添加一些简单的内容来清除我刚刚传输的所有数据吗?任何帮助都将不胜感激

到目前为止,这是我的脚本:

Sub LoopThroughDirectory()

Dim MyFile As String
Dim erow
Dim Filepath As String

Filepath = "C:\Users\Guy\Desktop\nichola\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
    If MyFile = "ZMASTER.xlsm" Then
    Exit Sub
    End If

    Workbooks.Open (Filepath & MyFile)
    Range("A2:E25").Copy
    ActiveWorkbook.Close

    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 5))

    MyFile = Dir
Loop
End Sub

相关内容