抽出値

Question

：

Sub loopCell() 

Dim cell As range 
For Each cell In range("p10:p200") 

Next cell 

End Sub 

私は私のループが繰り返さすべてのセルの値を抽出したいです。その後、別のシートに値を出力し、その値を変数/配列に格納したいと考えています。

Answer 1

なぜこのループが必要ですか？

値を直接コピー/割り当てできます。彼は同様に値を格納したいユーザの更新要求、あたりとして

'~~> Change `A1:A190` to the relevant range when you want the output... 
Sheets("Sheet2").Range("A1:A190").Value = Sheets("Sheet1").Range("P10:P1200").Value 

または

'~~> Change `A1` to the relevant range when you want the output... 
Sheets("Sheet1").Range("P10:P1200").Copy Sheets("Sheet2").Range("A1") 

EDIT

にこの例を参照してください。このようなシナリオでは、あなたは、あなたは、配列から選択された値は、ループしたい場合は、関連するシートここ

に出力することが例

Dim MyAr As variant 

MyAr = Sheets("Sheet1").Range("P10:P1200").Value 

あり、そこから、その後することができ、配列に値を格納することができ配列を介して関連するシートに出力します。

'~~> looping through the array 
For i = LBound(MyAr) To Ubound(MyAr) 
    Debug.Print MyAr(i,1) 
Next i 

あなたは、出力、あなたがに

Sheets("Sheet2").Range("A1").Resize(Ubound(MyAr),1).Value = MyAr