增加删除命令

笨笨过客

• 以下是蓝桥玄霜前辈写的代码，因为我每天需要汇总一下，所以我想请高手改一下，增加一条命令，在运行这个宏时，把以前的表格中的内容清空，请高手指点修改，谢谢！
• Sub lqxs()
•     Dim Arr, myPath$, myName$, Arr1, Myr&
•     Application.ScreenUpdating = False
•     Sheet1.Activate
•     [a2:q5000].Clear
•     myPath = ThisWorkbook.Path & "\"
•     myName = Dir(myPath & "*.xlsx")
•     Do While myName <> ""
•         If myName <> ThisWorkbook.Name Then
•         With GetObject(myPath & myName)
•             Arr1 = .Sheets("人员明细").Range("A1").CurrentRegion
•             Arr = .Sheets("人员明细").Range("A4").Resize(UBound(Arr1) - 3, UBound(Arr1, 2))
•             .Close False
•         End With
•         Myr = [a65536].End(xlUp).Row + 1
•         Cells(Myr, 1).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
•         End If
•         myName = Dir
•     Loop
•     [a1].CurrentRegion.Borders.LineStyle = 1
•     MsgBox "OK"
•     Application.ScreenUpdating = True
• End Sub
• 
  

复制代码

笨笨过客

哦，看来是我搞错了，这个已经可以清空原数据