Tweet

Pocket

次に奇数だけをA列に並べます。

コードはExcelVBA　変数の使い方（応用）①
をご参照下さい。
替えるところは一か所だけ。

For b = 1 To 10 Step 2

ここだけです。
実行結果です。

次に偶数だけをA列に並べます。
変更する箇所は次の通り。

For b = 2　To 10 Step 2

これで偶数だけを並べることができます。

さらに対角線で数字を並べる場合、
替えるところは一か所だけ。

Worksheets(“Sheet2”).Cells(c, c).Value = Cells(a, b).Value

少しコードを変更するだけで違った結果を導くことができます。