Excel难题求解

如果你学会使用EXCEL中的宏,针对这种问题就容易的多了~~~用宏生成了一个新的表格,希望能符合你的要求 ^_^(由于表格过大...我也传到我的共享资料里了...)语句如下:Sub x()Set s = Sheets.Adds.Name = "新表格"Sheets("原表格").SelectSet r = Range("a7:c383")a = 7b = 7For i = 1 To 110Sheets("原表格").Selectr.Copys.SelectCells((i - 1) * 377 + 2, 1).Selects.PasteSheets("原表格").SelectRange(Cells(a, b), Cells(383, b + 1)).Copys.SelectCells((i - 1) * 377 + 2, 4).Selects.PasteSheets("原表格").SelectCells(a - 2, b).Copys.SelectRange(Cells((i - 1) * 377 + 2, 6), Cells(i * 377 + 1, 6)).Selects.Pasteb = b + 2NextApplication.CutCopyMode = FalseEnd Subps:生成的表格还需要进行少量修改,例如去掉空数据,调整日期等,不过已经可以用于数据透视表了 收起