For = 1 To 10 Step 2 Cells(i, 1) = 1 Nexti End Step2 これ1行置きの指定です。 iが2増えていきます。 つま、これを書かない時は、 Step1 このは、マイナス数値も指定できます。 Step-1 とすば、iは1ずつ減っていきます。 セル行を下から処理したい場合や、...
k As Long k = 21 For i = 2 To rowsData Dim deliDate As Date deliDate = wsData.Cells(i, 1).Value If Year(deliDate) = 2018 And Month(deliDate) = 1 Then wsData.Range(wsData.Cells(i, 2), wsData.Cells(i, 4)).Copy wsTemplate.Cells(k, 1) k = k + 1 End If Next i '...