Excel VBA質問箱 IV

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

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


49674 / 76732 ←次へ | 前へ→

【31961】Re:条件に当てはまるものを転記したい
回答  ぽんかん  - 05/12/2(金) 23:13 -

引用なし
パスワード
   ▼おーちゃん さん:

今晩は。
こんな感じか?っと思って作りました。試してみてください。
シート1に元原稿がありシート2に200点以上の列を貼り付けています。

Sub test()

Dim R As Range
Dim myR As Range

Set myR = Range(Range("E2"), Cells(65536, 5).End(xlUp))

For Each R In myR
If R.Value >= 200 Then
Range(R.Offset(, -4), R).Copy Destination:=Sheets(2).Range("a65536").End(xlUp).Offset(1)
End If
Next R
End Sub

1 hits

【31957】条件に当てはまるものを転記したい おーちゃん 05/12/2(金) 22:27 質問
【31958】Re:条件に当てはまるものを転記したい ponpon 05/12/2(金) 22:35 発言
【31961】Re:条件に当てはまるものを転記したい ぽんかん 05/12/2(金) 23:13 回答
【31976】Re:条件に当てはまるものを転記したい Kein 05/12/3(土) 13:19 回答
【32036】Re:条件に当てはまるものを転記したい おーちゃん 05/12/5(月) 7:11 お礼

49674 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free