用excel处理数据问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 00:51:50
问题1：假设有100个数据，其中第10个，第20个，第30个，第40个...数据是相同的，现在要修改为：第20个数据=第10个数据+2，第30个数据=第20个数据+2，...以此类推，该如何处理？

问题2：假设有100个数据形成一列，现在要将其按顺序分成10列，每列10个数据，该如何处理？

如果excel不能解决，用其他程序语言也可以，谢谢各位高手帮忙！

需用宏来解决，三步走：
1.alt+F11

2.双击左边工程框里的Sheet1,设你的数据在sheet1表里从A1到A100，右边的编辑窗口中输入以下代码：
'第一个问题：
Sub super()
Dim i As Integer
For i = 20 To 100 Step 10
Worksheets("sheet1").Cells(i, 1).Value = Worksheets("sheet1").Cells(i - 10, 1) + 2
Next
End Sub

'第二个问题的
Sub superCut()
Dim i As Integer
For i = 11 To 100 Step 10

Range(Cells(i, 1), Cells(i + 9, 1)).Cut Cells(1, (i + 9) / 10)
Next

End Sub

3.分别将鼠标放到两段程序中，点F5即可
或alt+F8,运行这两个宏。

第一个问题 在B列输入1-100,c1输入=MOD(B1-1,10) 向下复制公式,按c列排序(升序)
在D1输入=a1,d2输入=IF(C2=0,A1+2,A2)
向下复制公式
复制d列,选择性粘贴-数值
按b列排序
删除abc三列

第二个问题
在新工作表a1输入
=OFFSET(Sheet1!$A$1,(ROW()-1)+10*(COLUMN()-1),0)
将公式复制到其他单元格

F2 关闭了单元格的编辑状态后，将插入点移动到编辑栏内。
F9 计算所有打开的工作簿中的所有工作表。 如果选定了一部分公式，则计算选定部分。然后按 Enter 或 Ctrl+Shift+Enter（对于数组公式）可用计算出的值替换选定部分

有点困难