我想获取一个范围内的单元格的值并将其存储为变量。然后将另一个范围内的另一个单元格的值设置为该变量。然后继续到单元格。在捕获了该行中的所有单元格之后,我想移至下一行,并从第一个单元格和第一个变量重新开始。我不知道如何移动到下一个单元格,然后将新范围内的值设置为变量。这是我到目前为止所得到的
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
使用行和列计数器,而不是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
请注意,当它们的大小和形状相同时,有一种简单得多的方法可将一个数组填充到另一个数组中。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句