复制范围并粘贴到另一工作表vba上的特定单元格

嗨，我是这个论坛的新手

我想将a1:a10范围从第1页复制到第2页的单元格中，从a10开始，增加10个单元格。i、 e:

活页1:a1在活页2:a10上的内容； 活页1:a2在活页2:a20上的内容； 活页1:a3的内容在活页2:a30上； ... 等等 我知道的代码简单范围复制和粘贴如下

Sub Copy(
Dim CopyFrom As Range

Set CopyFrom = Sheets("Sheet1").Range("A2 : A10")
Sheets("Sheet2").Range("A1").Resize(CopyFrom.Rows.Count).Value = CopyFrom.Value

End Sub

请帮助编辑以上代码以满足我的需要

根据单元格中的值隐藏行数。i、 例如，如果单元格a1包含10，单元格a2包含50，则应隐藏第10到50行。 我可以通过将一个值设置为固定值并从单元格中调用一个值来完成上述操作，但不能同时调用这两个值

Sub AUTOHIDE_ROWS_307()
'
Application.ScreenUpdating = False
Sheets("sheet1").Select
Dim Cval As Variant
Dim Rng1 As Range
Cval = ActiveSheet.Range("a1").Value
Set Rng1 = ActiveSheet.Range("A50:N" & Cval)
Rng1.Activate
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

请帮助编辑以上内容以满足我的需要

---

提前谢谢。

我知道这不是本论坛的目的，但你在这里迷失了方向，这会给你一些可以作为起点的东西

Sub doThatCopy()
    'Create your variables
    Dim myFormerSheetRow, myDestinationSheetRow, myFormerColumn, myDestinationColumn As Integer
    Dim myFormerSheetName, myDestinationSheetName As String

    'Setting the variables first values
    myFormerColumn = 1 ' 1 = A, 2 = B...
    myDestinationColumn = 3 '3 = C
    myFormerSheetRow = 0 ' This row, doesn't exists, but we'll increment it before first use
    myDestinationSheetRow = 1

    myFormerSheetName = "Sheet1"
    myDestinationSheetName = "Sheet2"

    For i = 1 To 10
        'You could use  "myFormerSheetRow = i" instead of the row below, but I'll leave it this way to be more understandable for you
        myFormerSheetRow = myFormerSheetRow + 1
        myDestinationSheetRow = myFormerSheetRow * 10
        ActiveWorkbook.Worksheets(myDestinationSheetName).Cells(myDestinationSheetRow, myDestinationColumn).Value = ActiveWorkbook.Worksheets(myFormerSheetName).Cells(myFormerSheetRow, myFormerColumn).Value
    Next i

    MsgBox ("Success!")
End Sub

一,

二,

---

欢迎来到堆栈溢出。因此，这不是为我编写代码的服务，也不是教我编写代码的服务。如果您的现有代码不起作用，请使用“编辑”将其发布到原始帖子中，并解释错误代码的作用，我们将帮助您克服特定错误。我已根据要求添加了部分对我有效的代码…@ScottCranerNo，我们不会编辑以上内容以满足您的需要。您应该编辑代码以满足您的需要。如果您在这样做时遇到问题，您可以在此处发布，解释您遇到的问题，包括代码的相关部分，并询问有关该代码的特定问题。这不是一个代码编辑或重写服务，我们也不是任何人的个人编码助手。我们很乐意帮助你，但我们不是为你做的。如果人们擅长自己做事，就不应该对别人不负责任。我请求帮助我请求建议什么是解决方案，而不是重写代码。。我在这个网站上读到了成千上万的问题，当人们帮助回答并提供完整的解决方案，而不仅仅是消极的关于。。。如果你想让我删除我的问题，请告诉我…上面隐藏行的解决方案似乎不起作用。它给出了编译错误，SYNTEX错误抱歉，括号太多，我必须在测试时发现错误之前复制/粘贴到答案中。感谢您对这两个答案的帮助。。。像魅力一样工作。。非常感谢@Yowe3k的帮助。。。非常感谢@Diogpaim

Dim I as Integer
For I = 1 To 10
    Sheets("Sheet2").Cells(1, I * 10) = Sheets("Sheet1").Cells(1, I)
Next

With ActiveSheet
    .Range("A" & .Range("A1").Value, "A" & .Range("A2").Value).EntireRow.Hidden = True
End With