| |
▼yasu145 さん：
neptuneさんのご指摘の通りと思いますが･･･
今、想像でコードを書いてみました。
こんな感じであれば、後追加訂正をして
本来のしたい内容にされては？
要は、A列の数字の条件(2以上で4以下）
と B列の数字の条件(50以上で70以下）としています。
それに当てはまるもののA列の数字をF列に表示させました。
条件はこれでよかったでしょうか？
後はシート２又は３に４列(A〜D列）をコピー仕上げたら
如何でしょう・・・
Sub NNN()
Dim R As Range
Dim MyR As Range
Set MyR = Range("A1", Range("A65536").End(xlUp))
For Each R In MyR
If R.Value >= 2 And R.Value <= 4 And R.Offset(, 1).Value >= 50 And R.Offset(, 1).Value <= 70 Then
R.Copy R.Offset(, 5)
End If
Next
End Sub
間違っていれば、また書いてください。
識者のneptuneさんをはじめ多くの方の訂正やアドバイスを
いただいてください。
|
|
PiPi
- 06/10/26(木) 21:52 -
