|
りょうた さん、こんばんわ。
>こんばんわ。どうしてもうまくいかないので
>どなたか、教えていただけないでしょうか?
>
>★あるデータから抽出した4桁の番号が"A5"からした方向にあります。
>(どのセルまであるかは、場合によって違います)
>★そのデータの範囲を検索し、1*** のように、1から始まる4桁の番号が
>あるセルをコピーして、"D5"にコピーしたいのです。
>(4桁の番号は重複コードはありません)
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
を参考にしてみてください。
|
|