excel的粘贴公式问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 06:17:07
有一列数据,我想粘到另一张工作表中,成为一行,用"选择性粘贴"中的转置就可以.但我想在这一行中每两个数据间插一个空单元格.怎么才能办到呢?
用VBA解决也行啊.就是一列数据变成每两个数据中间空一单元格的一行数据.vba应该能有办法啊

用宏解决

设原数据在Sheets(1)第m列 从 第a行到第b行
需要复制到Sheets(2)的第n行，从第c列开始。
Sub aaa()
k=0
for I=a to b
Sheets(2).Cells(n, I+k+c-a) = Sheets(1).Cells(I, m)
k=k+1
next I
End sub
请根据需要自己填上m,n,a,b,c就ok了

手工操作，或录一个宏执行。

操作方法：
1：首先复制，先不选择转置，复制好以后为1列，增加辅助列，写上 1 2 3 排序到最后一个，然后到最后一个下面的序号再写上 2.5, 4.5, 6.5,一直拉下去
2：对辅助列排序，这样就在两行中间加入了一个空行，
3：然后复制-转置