Question

在excel中 我想在sheet1添加一个vb按钮 点击后sheet2的第一行添加到sheet1的第一列中

Answer 1

为什么要用VB啊？
直接复制了，然后选择性黏贴中选择“转置”就可以了。
不过如果一定要VB的话，我帮你做好了。
有百度Hi么？加我，我帮你搞定

追问

是的，一定要用vb，因为要我要重复、大量的使用，用vb会节省好多时间的.请赐教
我QQ：461992064

Answer 2

复制下面的代码到宏，你添加一个按钮把宏加进去，就可以了！

Sub 转置()
ends = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column
Q = Cells(1, ends).Address
Sheet2.Range("a1:" & Q).Copy
Sheet1.Range("a1").PasteSpecial 12, , , True
End Sub

这个你试一下

Answer 3

看错了，转置吧

Answer 4

不清楚