Question

excel中点击按钮，按列依次复制sheet1工作表中的内容

之前我问过类似问题，是按行的，结果自己想改一下变按列的，怎么改也不行。
具体效果：sheet1有b3~h3共7列数据，每列3行。现希望在sheet2中设置按钮。按一下按钮，把b列的三行单元格如b3,b4.b5，以完全格式和内容的方式复制粘贴到sheet2的e10，e11,e12三个单元格中。再按一下复制c3，c4，c5，依次往下，到h列后循环回b列。每次都是复制到e10，e11,e12中。

Answer 1

Sub sdf()
If Sheet1.Range("A1") < 8 Then
Sheet1.Range("A1") = Sheet1.Range("A1") + 1
a = Sheet1.Range("A1")
Else
Sheet1.Range("A1") = 2
a = 2
End If
For i = 3 To 5
Sheet2.Cells(10, 5).Value = Sheet1.Cells(i, a).Value
Sheet2.Cells(11, 5).Value = Sheet1.Cells(i, a).Value
Sheet2.Cells(12, 5).Value = Sheet1.Cells(i, a).Value
Next
End Sub

把这些代码设成一个按钮的功能

这里的A1我设了一个递增，如果你A1有内容的话，可以把A1改成别的单元格，把代码里的A1改为别的就行了。

追问

程序我放上去，没反应。我只是改了Sheet2和Sheet3，不改也不行。

下面这的代码是我之前问逐行复制的代码，能实现，但我不会改成逐列复制。

追答

追问

确实可以实现，不过希望是完全格式及内容复制，不是仅复制单元的值