Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41775 / 76732

←次へ　｜　前へ→


	【40035】Re:奇数のときと偶数のとき

Kein - 06/7/5(水) 21:55 -


	引用なし

	パスワード

作業行を使っても良いなら、高速に処理できます。
事前にワークシートのメニューで「ツール」「アドイン」を選択し
"分析ツール"にチェックを付けておいて下さい。作業行は仮に 1000行目とします。
コードは

Sub Sample2()
　 Dim EVR As Range, ODR As Range

　 With Worksheets("P")
　　　With .Range("A61", .Range("IV61").End(xlToLeft).Offset(-1, 939))
　　　　 .Formula = "=IF(ISEVEN(COLUMN()),1,"""")"
　　　　 Set EVR = .SpecialCells(3, 1)
　　　　 Set ODR = .SpecialCells(3, 2)
　　　End With
　 End With
End Sub

これで偶数列の1000行目が EVR というRangeオブジェクト変数に格納され、
奇数列の1000行目が ODR に格納されます。ここから例えば、偶数列の125行目
だけを対象に何かの処理をするなら

　　　　 .Formula = "=IF(ISEVEN(COLUMN()),1,"""")"
　　　　 Set EVR = .SpecialCells(3, 1)
　　　　 Set ODR = .SpecialCells(3, 2)
　　　End With
　　　Intersect(EVR.EntireColumn, .Rows(125)).Value = "test"
　　　.Rows(1000).ClearCotents
　 End With
　 Set EVR = Nothing: Set ODR = Nothing
End Sub

などとすれば良いのです。

0 hits

▼

【40031】奇数のときと偶数のとき (・～・) 06/7/5(水) 21:02