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

复制下列代码到模块中，选中B172，执行Macro1Sub 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 NextEnd Sub