Question

请教如何批量将excel里某行数据复制到另一行中

详情请见图
我想将170,172,174等行的数据批量复制到c列中,请问用什么方法能够批量完成操作?或者可以通过"宏"来解决吗?

Answer 1

如果是隔行添加到C列中的话(比如170,172,174,176,178,180,182......)
可以在C169单元格输入公式(因为就目前的图片而言,C169是空白的,我默认你从这里开始添加)
=IF(OFFSET($B$1,(ROW(A1)-1)*2+169,)="","",OFFSET($B$1,(ROW(A1)-1)*2+169,))

这个可以直接下拉填充,还加了判断是否为空

如果是在其它位置开始这样有规律地添加,就需要修改公式了

追问

我是想把b列170行的数据复制到c列169行中,然后把170行删除,以此类推

追答

你的问题不明确...你是想整170行复制到169行,再把170行删除吗?

追问

不是整行,就坐标是(b,170)的数据,移动到坐标为(c,169)上去

Answer 2

c170写个公式：
=if(or(row()={170,172,174}),b170,"")
向下复制就行，另外花括号里的行数你可以添加，修改。

追问

数据还要再增加,不仅仅只有170,172,174这三行数据需要复制,之后还要再增加数据的呢,能不能有个便捷的方法批量操作?

追答

这批数据如果有什么特殊标志最好，如果没有，可在表左侧插入一列，在170、172、174......
行对应的新列中添加一个标志，比如“A”，然后C170公式：
=if(A170="","",C170)
向下复制公式就可以了。

Answer 3

复制下列代码到模块中，选中B172，执行Macro1
Sub Macro1()
For k = 1 To 10000
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(2, -1).Range("A1").Select
Next
End Sub

追问

之后还需要添加数据,这个代码能够批量操作吗?

追答

FOR NEXT语句就是循环语句，可以一直操作，按ESC结束

追问

不好意思我之前没有说明白,我是想把b列170行的数据复制到c列169行中,然后把170行删除,可以帮我修改一下代码吗?