几个vba小程序

使用VBA编写小程序,可以实现自动汇总文件夹下所有Excel文件的特定列,并整合成一个新的数据列。此外,还能将Excel中的某列数据导出为文本文件,每行存储一个单元格的内容。
摘要由CSDN通过智能技术生成

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
  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值