需要编写excel函数来循环通过工作簿中的所有工作表，然后返回单元格中的所有值

Function GetAllCellValues() As Variant
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim result() As Variant
    Dim i As Long
    Dim j As Long
    Dim k As Long
    
    ' 打开当前工作簿
    Set wb = ThisWorkbook
    
    ' 初始化结果数组
    ReDim result(1 To wb.Worksheets.Count, 1 To 1)
    k = 1
    
    ' 循环遍历每个工作表
    For Each ws In wb.Worksheets
        ' 获取当前工作表的数据范围
        Set rng = ws.UsedRange
        
        ' 将数据范围的值存入结果数组
        For i = 1 To rng.Rows.Count
            For j = 1 To rng.Columns.Count
                result(k, 1) = rng.Cells(i, j).Value
                k = k + 1
            Next j
        Next i
        
        ' 切换到下一个工作表
        k = k + 1
    Next ws
    
    ' 返回结果数组
    GetAllCellValues = result
End Function