Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51628 / 76738

←次へ　｜　前へ→


	【29973】データの検索

oku - 05/10/17(月) 16:59 -


	引用なし

	パスワード

申し訳ないのですが、お知恵を拝借したく書き込みました。
環境はwin98SE Excel2000です。

　　A　　　B　
1
2　検索値　
3　番号　名前
4　10　　あああ
5　11　　いいい
6　12　　ううう
7　13　　えええ

というデータからB2に名前を入力して検索するコードを書きました

Dim namae As String
Dim kensaku As String

namae = Range("B2").Value
kensaku = ""
Range("B3").Select

'指定したｾﾙが空白になるまで繰り返す
Do Until ActiveCell.Value = ""
　　ActiveCell.Offset(1).Select
　　kensaku = ActiveCell.Offset(1)
　　　
'選択した名前と一致したデータをコピーする
　　If namae = kensaku Then
　　　　ActiveCell.Offset(1).Select

　　　　With Selection
　　　　　　.Resize(, .Columns.Count + 19).Select
　　　　End With
　　　　
　　　　Selection.Copy
　　　　
　　　　Range("A1").Select
　　　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, 　　　　　　SkipBlanks:= _
　　　　False, Transpose:=False
　　End If
Loop

これで実行するとデータの先頭行の「あああ」を検索出来ないんです。
その他のデータは検索出来るんですけど…。
どこをどう修正すればよいでしょうか？
よろしくお願いします。

0 hits

▼

【29973】データの検索 oku 05/10/17(月) 16:59

≪