|
▼yasu145 さん:
neptuneさんのご指摘の通りと思いますが・・・
今、想像でコードを書いてみました。
こんな感じであれば、後追加訂正をして
本来のしたい内容にされては?
要は、A列の数字の条件(2以上で4以下)
と B列の数字の条件(50以上で70以下)としています。
それに当てはまるもののA列の数字をF列に表示させました。
条件はこれでよかったでしょうか?
後はシート2又は3に4列(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さんをはじめ多くの方の訂正やアドバイスを
いただいてください。
|
|