EXCEL怎么用VBA实现一列数据平均分成7列数据?

给你代码吧。Sub bb() Dim iEndRow, iAve, j, i iEndRow = Sheet1.[a65536].End(xlUp).Row iAve = Fix(iEndRow / 7) j = 1 For i = 1 To Sheet1.[a65536].End(xlUp).Row If i Mod iAve = 0 Then Sheet2.Cells(iAve, j).Value = Sheet1.Cells(i, 1).Value j = j + 1 Else Sheet2.Cells(i Mod iAve, j).Value = Sheet1.Cells(i, 1).Value End If NextEnd Sub