如何excel 表中同一行的数据转换成两行,不是简单的复制粘帖,而是大量的数据这样做.先谢谢了

Sub obook()
For i = 1 To 16 Step 2
Sheets("sheet1").Rows(i).Select
Selection.Copy
Sheets("sheet1").Rows(i + 1).Select
Selection.Insert Shift:=xlDown
Next i
End Sub
说明一下：
拷贝上面的编码，启用excel的vba，插入模块，粘贴上述代码，注意如下几点：
1. 由于步长是2,所以如果你要操作的数据有100行，就将for i=1 to 16中的16改成200（即100*2）
2. 默认你要操作的表的名称是sheet1,根据实际自己改吧。
3. 由于你问题没有描述清楚，我理解是对一行变成两行的意思是完全复制。