13问答网 > excel利用宏批量复制粘贴

excel利用宏批量复制粘贴

2025-02-24 03:46:52

推荐回答（2个）

回答1：

就是把F列数据按照10个一行来排是吧？

简单，不要用复制粘贴，直接用单元格赋值就行了。

你等我我把代码写给你

Sub aa()

For rw = 4 To Range("F65536").End(xlUp).Row

Range(Chr(76 + ((rw - 4) Mod 10)) & (Int((rw - 4) / 10) + 4)) = Range("F" & rw)

Next rw

End Sub

回答2：

1 其实只要在任意单元格输入下面的函数就可以了
=OFFSET($F$4,ROW(A1)*10-11+COLUMN(A1),0)
2 $F$4为你要引用的第一个单元格，自己根据需要更改， $ 这个符号不要改
3 10-11 为横列有10列，如果横列为7列，则改成 7-8 就可以了，依次类推
4 希望对你有帮助