FinePix J10 A46の解決方法

質問者が納得マクロの例です。 データ１の場合 Dim i As Long Dim j As Long j = 2 For i = 7 To 10003 Step 12 Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("C" & j).Value j = j + 8 Next i データ2、データ3は応用してください。