【EXCEL_VBA_常用过程 & 函数】

结合日常工作需要,收录或改写相关过程及函数,现共享给大家,希望能对大家有所帮助!

目录

[1. 过程](#1. 过程)

[1.1 批量处理框架Application.GetOpenFilename](#1.1 批量处理框架Application.GetOpenFilename)

[2. 功能函数](#2. 功能函数)

[2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应)](#2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应))

[2.2 排序函数(针对字符串数组,进行元素间排序)](#2.2 排序函数(针对字符串数组,进行元素间排序))


1. 过程

1.1 批量处理框架Application.GetOpenFilename

注1:GetOpenFilename:返回完整的文件名路径

vbnet 复制代码
' 遍历工作簿
Sub Traverse_Workbook()
 
Dim f(), s As Integer
 
f = Application.GetOpenFilename(fileFilter:="xlsx文件(*.xlsx),*.xlsx",_
 Title:="选择Excel文件", MultiSelect:=True)
 
' GetOpenFilename在点击"确定"时会返回选中的文件名数组,点击"取消"时会返回一个Boolean型的False
'判断是否是Boolean型(FASLE)就可以判断确定还是取消,选中文件时返回string类型
If TypeName(f) = "Boolean" Then Exit Sub
 
' 打开工作簿
For s = 1 To UBound(f)
 
    ' 设定当前打开工作簿名称为xlsxBook

    ' 原代码
    ' Workbooks.Open f(s), UpdateLinks:=0 '不更新外部链接
    ' Set xlsxBook = GetObject(f(s))

    Set xlsxBook = Workbooks.Open f(s), UpdateLinks:=0 '不更新外部链接
 
    '循环遍历当前工作簿的各个工作表
    For startSheetNum = 1 To xlsxBook.Sheets.Count
 
        ' 设定第startSheetNum个sheet为活动sheet
        Set Mywantgetsheet = xlsxBook.Worksheets(startSheetNum)
        Mywantgetsheet.Activate
 
        ' 重点!!! 
        ' 针对每个活动sheet实现的功能函数写于此处
    
    ' 下一个sheet
    Next startSheetNum
 
    ' 保存及关闭工作簿
    xlsxBook.Save
    xlsxBook.Close
 
' 继续打开下一个工作簿
Next
 
' 完成操作,显示"finish"
MsgBox "finish"
 
End Sub

2. 功能函数

2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应)

vbnet 复制代码
Function Compare_Combination(M() As Variant, M_Temp() As Variant, num As Integer)

' M() 基准组合,M_Temp() 待比对组合,num 为元素数量

'比对结果,默认为True
Dim result As Boolean
result = True

Dim T(), T_Temp() As Variant

'高版本EXCEL内置sort函数时可使用
' Sort函数需数组为列存储时方可正确排序(行数据无法正确排序),因此需转置再排序
'T = Excel.Application.WorksheetFunction.Sort(Application.WorksheetFunction.Transpose(M))
'T_Temp = Excel.Application.WorksheetFunction.Sort(Application.WorksheetFunction.Transpose(M_Temp))

'内置sort函数对列数据进行排序,因为需改写为(i,1)-i行1列
'Dim i As Integer
'For i = 1 To num
'    If T(i,1) <> T_Temp(i,1) Then
'        result = False
'        Exit For
'    End If
'Next

' 低版本EXCEL自主构建sort函数
T = Sort_Array(M)
T_Temp = Sort_Array(M_Temp)

Dim i As Integer
For i = 0 To num - 1
    If T(i) <> T_Temp(i) Then
        result = False
        Exit For
    End If
Next

Compare_Combination = result

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function Sort_Array(arr() As Variant) As Variant

Dim i, j As Integer
Dim temp As Variant

For i = LBound(arr) To UBound(arr)
    For j = i + 1 To UBound(arr)
        If VBA.StrComp(arr(i), arr(j), vbTextCompare) > 0 Then
        ' 字符顺序由小到大排序
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        End If
    Next j
Next i

Sort_Array = arr()

End Function

2.2 排序函数(针对字符串数组,进行元素间排序)

vbnet 复制代码
Function Sort_Array(arr() As Variant) As Variant

Dim i, j As Integer
Dim temp As Variant

For i = LBound(arr) To UBound(arr)
    For j = i + 1 To UBound(arr)
        If VBA.StrComp(arr(i), arr(j), vbTextCompare) > 0 Then
        ' 字符顺序由小到大排序
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        End If
    Next j
Next i

Sort_Array = arr()

End Function
相关推荐
The Future is mine13 分钟前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker7 小时前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook
盛夏绽放9 小时前
ExcelJS 完全指南:专业级Excel导出解决方案
excel·有问必答
bing_15813 小时前
Excel 如何进行多条件查找或求和?
excel
秀儿还能再秀13 小时前
基于Excel的数据分析思维与分析方法
数据分析·excel
bing_15813 小时前
Excel 如何处理更复杂的嵌套逻辑判断?
excel
weixin_4723394613 小时前
高效处理大体积Excel文件的Java技术方案解析
java·开发语言·excel
灵犀学长14 小时前
EasyExcel之SheetWriteHandler:解锁Excel写入的高阶玩法
spring boot·excel
全干engineer1 天前
Spring Boot 实现主表+明细表 Excel 导出(EasyPOI 实战)
java·spring boot·后端·excel·easypoi·excel导出
Fireworkitte1 天前
Java 中导出包含多个 Sheet 的 Excel 文件
java·开发语言·excel