从SpinButton获取值以确定循环数

Question

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

例如，每当您按下向左或向右按​​钮时，它将减去或添加一个最小值为1且最大值为1000的值。

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

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

Spin​​Button中关联的单元格范围是“ G7”

我想获取该单元格G7的值，以确定它将将数据从范围D3复制到D10的次数。

这些值在“ Sheet1”上。我希望将其粘贴到“ Sheet2”上。

Answer 1

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

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

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

-

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