Vba 获取范围内某个单元格的值,将其存储为变量,然后存储为下一个单元格、下一行(Excel)

Vba 获取范围内某个单元格的值,将其存储为变量,然后存储为下一个单元格、下一行(Excel),vba,excel,row,Vba,Excel,Row,我想得到一个范围内单元格的值,并将其存储为变量。然后将另一个区域中另一个单元格的值设置为该变量。然后转到牢房。捕获该行中的所有单元格后,我想移动到下一行,并从第一个单元格和第一个变量开始。我不知道如何移动到下一个单元格,然后将新范围中的值设置为变量。这是我到目前为止得到的 Dim rng As Range Dim row As Range Dim cell As Range Dim card1 As String Dim card2 As String Dim card3 As String D

我想得到一个范围内单元格的值,并将其存储为变量。然后将另一个区域中另一个单元格的值设置为该变量。然后转到牢房。捕获该行中的所有单元格后,我想移动到下一行,并从第一个单元格和第一个变量开始。我不知道如何移动到下一个单元格,然后将新范围中的值设置为变量。这是我到目前为止得到的

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

对于每个,使用行和列计数器而不是

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

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

对每个数组使用行和列计数器,而不是

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

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

您知道,您可以简单地<代码>范围(“F2:I4”)。值=范围(“A2:D4”)。值
但我希望a变量更改第二个范围的值。我将给第一个范围的值一个“分数”,然后将分数放入第二个范围。我只是想在计算之前先把重点放在这个问题上,你知道你可以简单地<代码>范围(“F2:I4”)。值=范围(“A2:D4”)。值
但我希望a变量更改第二个范围的值。我将给第一个范围的值一个“分数”,然后将分数放入第二个范围。我只是想在计算之前先关注这个问题谢谢。另外,我的代码不正确,它应该是“Set valueRng=Range”(“F2:I4”)”。关于填充相同大小和形状数组的更简单方法,正如我对@Scott提到的,我想给值赋值,然后将分数放在第二个范围内。我只是想在计算之前先关注这个问题谢谢。另外,我的代码不正确,它应该是“Set valueRng=Range”(“F2:I4”)”。关于填充相同大小和形状数组的更简单方法,正如我对@Scott提到的,我想给值赋值,然后将分数放在第二个范围内。我只是想在计算之前先关注这个问题