次に奇数だけを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
少しコードを変更するだけで違った結果を導くことができます。