获取一个单元格的值，存储一个变量，然后下一个单元格，下一行（Excel）

Question

我想获取某个单元格的值并将其存储为变量。然后将另一个区域中的另一个单元格的值设置为该变量。然后移动到单元格。当行中的所有单元格都被捕获后，我想移动到下一行并重新开始第一个单元格和第一个变量。我不知道如何移动到下一个单元格，然后将新范围中的值设置为变量。这里是我到目前为止

Dim rng As Range 
Dim row As Range 
Dim cell As Range 
Dim card1 As String 
Dim card2 As String 
Dim card3 As String 
Dim card4 As String 
Dim card5 As String 
Dim valueRng As Range 

Set rng = Range("A2:D4") 
Set valueRng = ("F2:I4") 


For Each row In rng.Rows 
For Each cell In row.Cells 
card1 = cell.Value 
'Set first variable 
'Code here for setting value of for first cell in valueRng 

'Move to second cell 
'get value 
'set variable card2 
'Set value of second cell in valueRng 

Next cell 
Next row 

Answer 1

使用行和列计数器，而不是For each：

Dim rng As Range 
Dim row As Range 
Dim cell As Range 
Dim card1 As String 
Dim card2 As String 
Dim card3 As String 
Dim card4 As String 
Dim card5 As String 
Dim valueRng As Range 
Dim x as long 
Dim y as long 

Set rng = Range("A2:D4") 
Set valueRng = Range("F2:I4") 


For x = 1 to rng.Rows.Count 
    for y = 1 to rng.Columns.Count 

card1 = rng.cells(x, y).Value 
'Set first variable 
'Code here for setting value of for first cell in valueRng 
valueRng.Cells(x, y).Value = card1 

Next y 
Next x 

注意，有从另一个填充一个数组的简单得多的方式时，他们具有相同的尺寸和形状。