Excel表格数据快速平均分配技巧：一键搞定均匀分布
Excel表格怎么快速平均分配数据？
在日常办公中，经常需要将一列数据平均分配到多列，或者将一组数值均匀拆分到多个单元格。例如：将100个名字平均分成4列，或者把总销售额平均分配到各月。手动操作费时费力，下面介绍几种快速方法。
方法一：使用填充序列（适用于按顺序平均分配）
假如A列有100个数据，想平均分配到B、C、D、E四列，每列25个。
- 在B1输入 =A1，然后向右拖动填充柄（填充到E1），此时B1为A1，C1为A2？不，我们需要先构建引用。正确做法：在B1输入公式
=INDEX($A:$A,ROW(A1)+(COLUMN(A1)-1)*25)，然后向下拖动25行，再向右拖动。公式解释：ROW(A1)产生行号1，COLUMN(A1)产生列号1，乘以25后得到起始偏移。索引返回A列对应位置。 - 更简单：用“序列”填充。在B1输入
=A1，向右拖动填充到E1，得到A1、A2、A3、A4？不，默认是相对引用。需要按住Ctrl向右拖动？不，这里用混合引用更方便。
推荐使用：选中B1:E1，输入 =A1，按Ctrl+Enter，然后选中这个区域，向下拖动填充柄，会自动产生规律。但需要确保每列数量一致。
方法二：利用“分列”功能（适合按指定数量拆分）
如果数据是文本格式，且需要按固定宽度分列，可用“数据”选项卡下的“分列”。但“分列”不是均匀分配，而是按分隔符或宽度拆分。
对于均匀分配，可结合“填充”和“转置”。例如：将A列数据分成多列，每列N个。先复制A列，粘贴到新工作表，使用“序列”生成辅助列标记分组，再通过数据透视表或公式拆分。
方法三：公式法（万能通用）
假设原始数据在A2:A101（100个），要分成4列，每列25个。在B2输入：
=IFERROR(INDEX($A:$A,ROW(A1)+(COLUMN(A1)-1)*25),””)然后向下拖动25行，再向右拖动到4列。注意行号和列号的巧妙变换。原理：ROW(A1)=1，COLUMN(A1)=1，所以索引1；向右一列COLUMN(B1)=2，索引1+25=26；向下一行ROW(A2)=2，索引2，以此类推。
方法四：VBA宏（一键自动化）
按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：
Sub 平均分配数据()
Dim arr, sht As Worksheet
Set sht = ActiveSheet
Dim lastRow As Long, colCount As Long, targetCol As Long
lastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row
colCount = InputBox(“请输入要分配的列数：”)
targetCol = InputBox(“请输入目标区域起始列号（如：2代表B列）：”)
ReDim arr(1 To lastRow, 1 To colCount)
Dim i As Long, j As Long, k As Long
k = 1
For j = 1 To colCount
For i = 1 To Int(lastRow / colCount)
arr(i, j) = sht.Cells(k, 1)
k = k + 1
Next i
Next j
‘ 处理余数
Dim remainder As Long
remainder = lastRow Mod colCount
If remainder > 0 Then
For i = 1 To remainder
arr(Int(lastRow / colCount) + 1, i) = sht.Cells(k, 1)
k = k + 1
Next i
End If
sht.Range(sht.Cells(1, targetCol), sht.Cells(Int(lastRow / colCount) + IIf(remainder > 0, 1, 0), targetCol + colCount - 1)).Value = arr
End Sub运行宏，输入列数和起始列，即可自动分配。
注意事项
- 确保数据无空行，否则公式会出错。
- 若数据行数不能被列数整除，处理方法有多种：剩余数据放在最后列、补空或循环填充。
- 使用公式时注意绝对引用和相对引用的混合。
总结
快速平均分配数据，根据数据量和操作频率选择方法：少量数据用填充柄，中等数据用公式，大量重复任务用VBA。掌握这些技巧，显著提升Excel数据处理效率。