如何在VBA中实现Excel的文本合并与单元格平均值计算？

下面是整合了你需要的两项功能的完整VBA代码，同时附上具体说明：

完整代码 #

Sub emasummarytest()

'Matching the investment cycle in the summary output with the data
Dim stx, edx As Integer

For y = 4 To 6102
    
    If IsError(Application.Match(Cells(y, 25), Range("P:P"), 0)) Then
    
    Else
    'finding the location
        stx = Application.Match(Cells(y, 25), Range("P:P"), 0) 'starting location
        edx = Application.Match(Cells(y, 25), Range("P:P"), 1) 'ending location
    
    'do certain tasks
        Cells(y, 26) = "50,200" 'display the strategy
        Cells(y, 27) = Application.Count(Range(Cells(stx, 16), Cells(edx, 16))) 'number of days in each cycle
        Cells(y, 28) = Application.Sum(Range(Cells(stx, 7), Cells(edx, 7))) 'cummulative daily return
        Cells(y, 29) = Cells(y, 28) / Cells(y, 27) 'average daily return
        Cells(y, 30) = ((1 + Cells(y, 29)) ^ 250) - 1 'annualised daily return
        
        ' 单元格文本合并（示例：合并当前行A列和B列内容到AE列）
        Cells(y, 31) = Cells(y, 1) & Cells(y, 2) ' 可自行修改参与合并的单元格和目标位置
        
        ' 计算黄色区域平均值（示例区域为D2:F10，需替换为实际黄色圈选区域）
        Dim yellowRange As Range
        Set yellowRange = Range("D2:F10")
        Cells(y, 32) = Application.Average(yellowRange) ' 结果写入AF列当前行
        
    End If
    
Next y

End Sub

关键功能解释 #

• 文本合并：VBA中直接使用&运算符实现单元格内容合并，语法与Excel工作表函数一致。示例将当前行A列（第1列）和B列（第2列）的内容合并后写入AE列（第31列），可根据实际需求修改参与合并的单元格及目标位置。
• 平均值计算：通过Application.Average()函数计算指定区域的平均值，对应Excel中的AVERAGE函数。示例假设黄色圈选区域为D2:F10，需将该范围替换为实际的黄色单元格区域地址；若黄色区域动态可变，可通过Interior.ColorIndex判断单元格颜色来获取目标范围。

内容的提问来源于stack exchange，提问作者HTTN