Excel 从SpinButton获取值以确定循环数

是否有任何方法可以获取连接到SpinButton的单元格的值，并确定复制数据的次数

例如，每次按下向左或向右按钮时，它都会减去或添加一个最小值为1、最大值为1000的值

这是我到目前为止复制数据的代码

Range("D3:D10").Copy
Worksheets("Sheet2").Range("A2").PasteSpecial , Transpose:=True

SpinButton中关联的单元格范围为“G7”

我想得到单元格G7的值，以确定它将数据从D3复制到D10的次数

---

数值在“表1”中。我想把它贴在“Sheet2”上

假设活动工作表具有G7和要复制的范围

Range("D3:D10").Copy
Worksheets("Sheet2").Range("A2:A" & 2 + [G7].Value).PasteSpecial , Transpose:=True
Application.CutCopyMode = False

编辑：粘贴到sheet2中的第一个可用单元格

-

---

非常感谢你！最后一个问题，它怎么能不覆盖以前复制的数据？我的意思是，我希望下一个要复制的数据将被粘贴到“Sheet2”中的最后一个空行。感谢它的工作，但我在粘贴方面遇到了麻烦，因为当它复制和粘贴时，它不仅复制了值，而且还复制了单元格范围内的公式。我试着把“粘贴：=xlPasteValues，转置：=True”放进去，但它仍然复制公式，你知道为什么它不只复制值而不包括公式吗？我不知道发生了什么，但我关闭并重新打开了excel，代码工作得很好，特别是复制和粘贴！再次感谢您。您没有提到数据来自公式。

Sub Copy_Trspose()
    Dim LstRw As Long, pRng As Range, cRng As Range, x
    Dim sh As Worksheet, ws As Worksheet

    Set ws = Sheets("Sheet2")
    Set sh = Sheets("Sheet1")

Application.ScreenUpdating = False

    With sh
        Set cRng = .Range("D3:D10")
        x = .Range("G7").Value
    End With

    With ws
        LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        Set pRng = .Range(.Cells(LstRw, "A"), .Cells(LstRw + x, "A"))
    End With

    cRng.Copy
    pRng.PasteSpecial , Transpose:=True

    Application.CutCopyMode = False
End Sub