|
申し訳ないのですが、お知恵を拝借したく書き込みました。
環境は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
これで実行するとデータの先頭行の「あああ」を検索出来ないんです。
その他のデータは検索出来るんですけど…。
どこをどう修正すればよいでしょうか?
よろしくお願いします。
|
|