【EXCEL_VBA_常用过程 & 函数】

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

目录

1. 过程

1.1 批量处理框架Application.GetOpenFilename

2. 功能函数

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

2.2 排序函数（针对字符串数组，进行元素间排序）

1. 过程

1.1 批量处理框架Application.GetOpenFilename

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

' 遍历工作簿
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 字符串数组比对 / 两组数据比对是否一致（不要求元素位置意一一对应）

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 排序函数（针对字符串数组，进行元素间排序）

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