Excel VBA中的雙嵌套For循環

Question

我正在嘗試建立一個代碼，該代碼首先1.）遍歷列表並替換某些單元格中的值，然后2.）復制並粘貼值到列表中

因此，一個虛構的示例：

 Column A     Column B
   NY          500
   CA          1000
   GA          200

我有一個for循環來遍歷A列（用NY然后是CA然后是GA來替換單元格D4，D5，D6中的值，然后是NY，然后是CA），但是我需要第二個for循環，一次將這些值復制並粘貼到B列中（例如，在第一次替換NY之后，將B1中的值復制並粘貼到B1中，然后在替換CA之后將B2復制並粘貼到B2中，然后復制B3，依此類推）

Sub Macro2()

    Dim x As Integer
    NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
    Range("A1").Select
    For x = 1 To NumRows
        Range("D4") = ActiveCell
        Range("D5") = ActiveCell
        Range("D6") = ActiveCell
        ActiveCell.Offset(1, 0).Select
    Next

End Sub

Answer 1

我認為這就是您要的...在這種情況下，可以全部在一個循環中完成-無需嵌套循環。

Sub MM()

    For i = 1 To Cells(1, 1).End(xlDown).Row
        '// Assign the value of Cells(i, 1) [1 = column number] to the range D4:D6.
        [D4:D6] = Cells(i, 1).Value
        '// This is the same as copy -> paste values. Change the "2" for different column
        Cells(i, 2).Value = Cells(i, 2).Value
    Next

End Sub