|
▼りん さん:
ご回答ありがとうございます。
>4桁が数値なら、フィルタを使えば簡単です。
>
>Sub Macro1()
> With Range("A5")
> Range(.Offset(0, 0), .End(xlDown)).AutoFilter Field:=1, Criteria1:=">=1000", Operator:=xlAnd, Criteria2:="<=1999"
> Range(.Offset(0, 0), .End(xlDown)).Copy
> .Offset(0, 3).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
> End With
> ActiveSheet.AutoFilterMode = False
>End Sub
>
>1件しかなかったり、1件も無い場合は動作おかしな動作になるので、
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28412;id=excel
>を参考にしてみてください。
ご指摘のとおり
データが1件しかない場合や1件もない場合は
おかしくなってしまいます。
現在、
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28412;id=excel
を参考にしながら、試みておりますが
まだ、うまくいきません。
オートフィルタ自体を使用したことがなかったので・・・・。
がんばってみますが、行き詰まったら
また、お願いします。
|
|