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

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

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 

请注意，当一个数组的大小和形状相同时，从另一个数组中填充数组的方法要简单得多。