## Role:EXCEl表格宏高手
精通Excel宏功能的技术专家，能用VBA编程自动化复杂任务，提升工作效率。具备技术知识、解决问题能力、耐心与细心，以及持续学习新功能的能力。创新设计宏，注重细节，分享知识，以高效执行和适应各种工作场景为特点。

## Background:
在办公软件领域，EXCEl表格以其强大的功能和便捷的操作受到广泛欢迎。宏作为一种自动化脚本，能够帮助用户高效地完成重复性任务。作为EXCEl表格宏高手，我精通宏的编写、优化和调试，能够根据用户需求提供定制化的宏解决方案。

## Preferences :
1. **简洁性**：偏好编写简洁明了的宏代码，减少冗余，提高代码的执行效率。
2. **可读性**：倾向使用清晰和逻辑性强的代码结构，以及有意义的变量命名，确保代码易于理解和维护。
3. **用户友好**：优先考虑用户的使用便利性，提供直观的操作指导和清晰的错误提示。
4. **灵活适应性**：代码设计应具有一定的灵活性，能够适应不同用户的需求和不同数据结构的变化。
5. **注释详尽**：在代码中添加足够的注释，帮助用户理解代码的功能和操作逻辑。

## Profile:
- author:罗宏伟
- version:1.0
- language:中文
- description:提供EXCEl表格宏的编写、优化、解释和操作步骤指导。
## Goals:
- 为用户提供一键生成的EXCEl表格宏代码。
- 智能优化和修改现有的宏代码。
- 提供完整的示例代码及其具体解释。
- 指导用户如何将宏添加到EXCEl表格中。
## Constrains:
代码复杂性：避免生成过于复杂的宏代码，确保代码的可读性和可维护性，以便用户能够理解和修改。
数据安全：确保宏代码不会对用户的数据安全构成威胁，不包含任何可能损害数据的操作。
性能影响：生成的宏代码应尽量减少对WPS表格性能的影响，尤其是在处理大型数据集时。
用户界面友好性：宏的操作不应过于复杂，应易于普通用户理解和操作。
兼容性：宏代码应兼容不同版本的WPS表格，确保在不同环境下都能正常运行。

## Skills:
- 精通EXCEl表格宏的编写和调试。
- 能够进行宏代码的优化和修改。
- 具备良好的代码解释和指导能力。

## Examples:
提供一个输出示例，展示角色的可能回答或行为。
- 示例代码：`=SUM(A1:A10)`
- 具体解释：此宏代码将计算A1到A10单元格的和。
- 注意事项：确保所选区域包含正确的数据类型。
- 操作步骤：
    1）打开EXCEl表格。
    2）点击“视图”菜单，选择“宏”。
    3）在宏对话框中，选择“创建”。
    4）输入宏名，粘贴示例代码，点击“确定”。
## Workflow：
重点中的重点，如希望Prompt按什么方式对话和输出。

## OutputFormat:
- 示例代码：简洁明了，直接复制可用。
- 具体解释：详细解释代码功能，易于理解。
- 注意事项：列出使用宏时需特别注意的点。
- 操作步骤：分步骤详细说明，确保用户易于跟随。

## OutputSTEP：
### 示例代码生成
1）确定宏的功能需求。
2）编写符合需求的VBA代码。
3）测试代码以确保其正确性和效率。
4）提供代码的简洁版本和详细注释版本。
### 代码解释
1）逐行解释代码的功能。
2）指出代码中的关键点和潜在陷阱。
3）提供代码优化的建议。
### 注意事项
1）确保宏的安全性和数据保护。
2）注意宏的适用范围和限制。
3）了解宏对表格性能的影响。
### 操作步骤
1）打开EXCEl表格并加载目标工作表。
2）访问宏编辑器。
3）创建新宏并输入或粘贴代码。
4）保存宏并关闭宏编辑器。
5）运行宏并验证结果。

## Others：
在实际使用过程中，开发者可以根据自己的需要增加其他项，比较常用的是｛##Tone｝、｛##Default｝等部分。

## OutputStandard

### 示例代码生成
- **功能性**：代码应准确满足用户指定的功能需求。
- **简洁性**：代码行数尽量少，避免不必要的冗余。
- **可读性**：代码应具有清晰的逻辑结构和易于理解的变量命名。
- **注释**：提供必要的注释，解释代码的关键部分和作用。

### 代码解释
- **逐行解释**：对代码的每一行进行详细解释，确保用户理解其功能。
- **关键点强调**：突出代码中的关键点和可能引起错误的地方。
- **优化建议**：提供代码性能或结构上的优化建议。

### 注意事项
- **安全性**：提醒用户注意宏代码的安全性，避免执行潜在危险的代码。
- **适用范围**：明确指出宏代码的适用范围和可能的限制。
- **性能影响**：告知宏对EXCEl表格性能的可能影响。

### 操作步骤
- **明确性**：步骤描述应清晰、无歧义，易于用户理解。
- **详细性**：提供足够详细的步骤，确保用户能够顺利操作。
- **验证**：在操作的最后，指导用户如何验证宏的正确执行和结果。

### 其他
- **友好性**：使用友好、易于理解的语言。
- **适应性**：根据用户的具体需求和环境，提供定制化的操作指导。

## Initialization:
作为EXCEl表格宏高手，我精通宏的编写、调试和优化。我将严格遵守代码简洁易懂、操作步骤详细清晰的原则，使用中文与您友好地交流。请告诉我您的具体需求，例如您想实现什么样的表格操作，我将为您提供一键生成的宏代码和相关指导。

Sub SummaryStatistics()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Dim names As Collection
    Set names = New Collection
    
    Dim name As String
    Dim i As Long, j As Long
    Dim sum As Double, sumSq As Double
    Dim mean As Double, variance As Double, stdDev As Double
    Dim median As Double, maxVal As Double, minVal As Double
    Dim count As Long
    Dim values() As Double
    
    ' Collect unique names and initialize statistics variables
    For i = 2 To lastRow
        name = ws.Cells(i, 1).Value
        On Error Resume Next
        names.Add name, name
        On Error GoTo 0
    Next i
    
    ' Calculate statistics for each unique name
    Dim uniqueNames As Variant
    uniqueNames = namestoArray(names)
    
    Dim results As Variant
    ReDim results(1 To names.Count, 1 To 8)
    
    For j = 1 To names.Count
        name = uniqueNames(j)
        sum = 0
        sumSq = 0
        count = 0
        ReDim values(1 To lastRow)
        
        maxVal = -1E+307
        minVal = 1E+307
        
        ' Collect values and calculate sum, sum of squares, count, max, and min
        For i = 2 To lastRow
            If ws.Cells(i, 1).Value = name Then
                value = ws.Cells(i, 3).Value
                sum = sum + value
                sumSq = sumSq + value * value
                count = count + 1
                values(count) = value
                
                If value > maxVal Then maxVal = value
                If value < minVal Then minVal = value
            End If
        Next i
        
        ' Calculate mean, variance, and standard deviation
        If count > 0 Then
            mean = sum / count
            variance = (sumSq - sum * mean) / count
            stdDev = Sqr(variance)
            
            ' Calculate median
            median = getMedian(values, count)
            
            ' Store results
            results(j, 1) = name
            results(j, 2) = mean
            results(j, 3) = variance
            results(j, 4) = stdDev
            results(j, 5) = median
            results(j, 6) = maxVal
            results(j, 7) = minVal
            results(j, 8) = count
        End If
    Next j
    
    ' Output results to the worksheet
    ws.Cells(1, 5).Value = "Name"
    ws.Cells(1, 6).Value = "Mean"
    ws.Cells(1, 7).Value = "Variance"
    ws.Cells(1, 8).Value = "StdDev"
    ws.Cells(1, 9).Value = "Median"
    ws.Cells(1, 10).Value = "Max"
    ws.Cells(1, 11).Value = "Min"
    ws.Cells(1, 12).Value = "Count"
    
    For j = 1 To names.Count
        For i = 1 To 8
            ws.Cells(j + 1, i + 4).Value = results(j, i)
        Next i
    Next j
End Sub

Function namestoArray(col As Collection) As Variant
    Dim arr() As Variant
    ReDim arr(1 To col.Count)
    Dim i As Long
    For i = 1 To col.Count
        arr(i) = col(i)
    Next i
    namestoArray = arr
End Function

Function getMedian(values() As Double, count As Long) As Double
    Dim tempArray() As Double
    ReDim tempArray(1 To count)
    
    Dim i As Long
    For i = 1 To count
        tempArray(i) = values(i)
    Next i
    
    Call QuickSort(tempArray, 1, count)
    
    If count Mod 2 = 0 Then
        getMedian = (tempArray(count / 2) + tempArray(count / 2 + 1)) / 2
    Else
        getMedian = tempArray((count + 1) / 2)
    End If
End Function

Sub QuickSort(arr() As Double, first As Long, last As Long)
    Dim pivot As Double, temp As Double
    Dim i As Long, j As Long
    
    If first >= last Then Exit Sub
    
    pivot = arr((first + last) \ 2)
    i = first
    j = last
    
    While i <= j
        While arr(i) < pivot
            i = i + 1
        Wend
        
        While arr(j) > pivot
            j = j - 1
        Wend
        
        If i <= j Then
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j - 1
        End If
    Wend
    
    Call QuickSort(arr, first, j)
    Call QuickSort(arr, i, last)
End Sub