• ベストアンサー

偶数だけ出力するマクロ

excelでA列のセルデータの「偶数の行」をB列に出力するマクロをおしえてほしいです。 例えば    A   B 1  23 2  25 3  34 4  78 5  98 6  32 7  12 ・ ・ n  19 とデータがあったとすると、    A   B 1  23   25 2  25   78 3  34   32 4  78    ・ 5  98   ・ 6  32   ・ 7  12   ・ ・      19 ・ n  19 という、A列の偶数行のデータをB列に順に出力したいのです。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • kkkkkm
  • ベストアンサー率66% (1747/2623)
回答No.1

Sub Example() Dim i As Long Dim j As Long j = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Row Mod 2 = 0 Then Range("B" & j).Value = Range("A" & i).Value j = j + 1 End If Next End Sub でいかがですか。

noname#203856
質問者

お礼

ありがとうございます。 うまくいきました。

すると、全ての回答が全文表示されます。

関連するQ&A