EXCEl中快速提取选择了的单元格内容，并按四个一组放入数组。

Question

现在有一个表格，它的数据都是四个一组的，这样的数据有很多，我想随便选择一些区域，要选择不连续的区域，我想在选择后，自动统计出这四组数据的平均值。大侠们帮帮忙啊。。。。。。。。。。。。
如图所示，颜色一样的为一组，要实现的效果是，比如同时选择了，第一、三、五、六组后，能自动计算平均值，并把一、三、五、六组的颜色变成一样的，再选择时就分情况，如果选择的是一、三、五、六中的一组，那就把它从一、三、五、六中去除，再计算平均值，颜色恢复，如果选择的是一、三、五、六组以外的就加进来，再计算平均值。

Answer 1

还是简单一些好。在表的右下边，显示“求和”数值的位置右键，勾选“平均值”。再选中若干数据后，就会显示平均值了。按住Chift键，就能选中多组不连续的数据，下边也会显示平均值。

Answer 2

先选中需要填充的单元格，然后在第一个单元格中输入要填充的数字或文字，这样在a1输入的一组数据或文字在b1单元格内同时也出这个数组这个很简单的 .追问

具体的，我没有搞懂，这样吧，你的qq吗，我加你

Answer 3

4个一组的数字在同一单元格?
写几组有代表性的出来看看.追问

如图所示，图中颜色一样的为一组。

追答

选中1组的意思是指同时选中这4个单元格?还是选中其中一个单元格?

追问

四个为一组，所以每次至少选择四个

追答

假设原始数据在A1:D16,结果输出在E列.
右击工作表标签>查看代码>粘贴下面代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1:d16").Font.ColorIndex = 0
Columns(5).Clear
For Each c In Selection.Cells
With c
If .Row Mod 4 = 1 Then
r = r + 1
Cells(r, 5) = Application.WorksheetFunction.Average(.Resize(4, 1))
.Resize(4, 1).Font.ColorIndex = 3
End If
End With
Next
End Sub

追问

首先感谢你的回答，还有一些细节问题，你能留一个联系方式吗？比如：QQ。

追答

可以hi我啊

本回答被提问者采纳