1.数据汇总——汇总文件夹下所有excel文件的某列,组成新的一列。
Sub 汇总()
Dim Fso, Fld, Fl
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.getfolder(ThisWorkbook.Path & "\data\")
If Fld.Files.Count > 0 Then
Application.ScreenUpdating = False
For Each Fl In Fld.Files
xh = ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Row + 1
Workbooks.Open (Fl)
h = ActiveWorkbook.Worksheets(1).[A65536].End(xlUp).Row
ActiveWorkbook.Worksheets(1).[a1].Resize(h, 1).Copy ThisWorkbook.Worksheets(1).Cells(xh, 1)
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
MsgBox "数据汇总完成"
Else
MsgBox "没有找到任何工作簿文件"
End If
End Sub
2.删除单元格中包含某些字符的行
Sub 删除行()
For i = Sheet1.[A65536].End(xlUp).Row To 2 S