Excel VBA中的双嵌套For循环

Question

I am trying to set up a code that first 1.) iterates through a list and replaces values in certain cells and then 2.) copy and pastes values in a list

So a made up example:

 Column A     Column B
   NY          500
   CA          1000
   GA          200

I have a for loop to iterate through column A (to replace values in cells D4,D5,D6 with NY then CA then GA) but I need a second for loop that will copy and paste those values in column B one at a time (eg copy and paste value in B1 into B1 after the first replacement of NY, then B2 into B2 after the replacement of CA, then B3, etc)

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

I think this is what you're asking for... in which case it can all be done in a single loop - no need for a nested loop.

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