| |
りょうた さん、こんばんわ。
>こんばんわ。どうしてもうまくいかないので
>どなたか、教えていただけないでしょうか？
>
>★あるデータから抽出した4桁の番号が"A5"からした方向にあります。
>（どのセルまであるかは、場合によって違います）
>★そのデータの範囲を検索し、1*** のように、1から始まる4桁の番号が
>あるセルをコピーして、"D5"にコピーしたいのです。
>（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
１件しかなかったり、１件も無い場合は動作おかしな動作になるので、
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28412;id=excel
を参考にしてみてください。
|
|
りん
- 05/9/13(火) 22:36 -
