A100 構成の解決方法

質問者が納得shumari_kさん C列が「0」以外のとき、A列の同行の数字をD列に抽出します。 Sub sample() Dim c As Range, cnt As Long For Each c In Range("C1:C100") If c <> 0 Then cnt = cnt + 1 Cells(cnt, 4) = c.Offset(, -2) End If Next c End Sub