vba - 循环宏并随每个循环更改范围

Question

我从一个工作表“Med”开始，它在单元格 A4:P9 中有公式/数据/格式。我需要将这些单元格复制到单元格 A10(向下 6 行)。然后我需要从另一个工作表“数据”中的信息中填写一些单元格。我需要以与 Data!(A:A) -1 每次复制信息时下拉 6 行的次数相同的次数重复此操作。

我需要填写的数据来自工作表“数据”，并为工作表“Med”中的每个副本移动一列。

我有制作第一个副本的代码，但不知道从哪里开始。查看下一个副本下方的代码将转到 A16(从 A10 向下 6 行)。

工作表“Med”中的范围也将增加 6 行，列将保持不变。

工作表“数据”中的范围将在列上移动，行号将保持不变。

约旦

Sub Macro1()
    Dim wsData As Worksheet 
    Dim wsMed As Worksheet 
    Set wsData = Sheets("Data") 
    Set wsMed = Sheets("Med")

    'Copy data set
    wsMed.Range("A4:P9").Copy wsMed.Range("A10") 'Set Premium Values
    wsMed.Range("M11").Value = wsData.Range("C20").Value
    wsMed.Range("M12").Value = wsData.Range("C21").Value
    wsMed.Range("M13").Value = wsData.Range("C22").Value
    wsMed.Range("M14").Value = wsData.Range("C23").Value 'Set Assumptions
    wsMed.Range("L11").Value = wsData.Range("C24").Value
    wsMed.Range("L12").Value = wsData.Range("C25").Value
    wsMed.Range("L13").Value = wsData.Range("C26").Value
    wsMed.Range("L14").Value = wsData.Range("C27").Value 
End Sub

Answer 1

这个宏运行代码三遍

Sub Macro1()
    Dim wsData As Worksheet
    Dim wsMed As Worksheet
    Set wsData = Sheets("Data")
    Set wsMed = Sheets("Med")
    Dim i As Integer, j As Integer, x As Integer

    i = 10
    j = 3


    'Copy data set
    For x = 1 To 3 ' run 3 times
        wsMed.Range("A4:P9").Copy wsMed.Cells(i, 1) 'Set Premium Values
        wsMed.Range("M" & i + 1).Value = wsData.Cells(20, j).Value
        wsMed.Range("M" & i + 2).Value = wsData.Cells(21, j).Value
        wsMed.Range("M" & i + 3).Value = wsData.Cells(22, j).Value
        wsMed.Range("M" & i + 4).Value = wsData.Cells(23, j).Value 'Set Assumptions
        wsMed.Range("L" & i + 1).Value = wsData.Cells(24, j).Value
        wsMed.Range("L" & i + 2).Value = wsData.Cells(25, j).Value
        wsMed.Range("L" & i + 3).Value = wsData.Cells(26, j).Value
        wsMed.Range("L" & i + 4).Value = wsData.Cells(27, j).Value
        i = i + 6
        j = j + 1
    Next x

End Sub