何が悪いのか？？？

質問

excelに記入された文字列を、VBAでLEFT関数を使い、欲しい部分だけ残すようにしたいのですが・・・
つまり、excelのB行に、J****/J****と記入されたところがあります。
それを、J****だけにしたいのです。
関数のLEFTを使うと事情によりエラーの原因になるので、VBAで作業したいです。
というわけで、以下のような構文を書きました。
-----------------------------------------------------
Sub IDをひとつだけにする()
下端行 = Range("B2000").End(xlUp).Row 'データの下端行を取得
For 行 = 7 To 下端行
位置 = Application.WorksheetFunction.Search("J", Range("B" & 行), 1)
ID = Left(Range("B" & 行).Value, 位置 + 5)
Range("B" & 行).Value = ID
Next
End Sub
-----------------------------------------------------------
すると、SEARCHプロパティが取得できませんとなり、動かないのです。
でも、行指定をせず、セルを単体で指定するとちゃんと動いてくれます。
なんででしょう？

回答No.3

Wendy02 · ベストアンサー

こんにちは。

まず、　'J' がないときの、エラー処理がなされていません。
それに、代わりの関数がある場合は、VBAでは、ワークシート関数は使うべきではありませんね。

>位置 = Application.WorksheetFunction.Search("J", Range("B" & 行), 1)
これではうまく行きません。エラーが返ったら、とまってしまいます。

それに、基本的には、VBAでは、InStr や InStrrev のVBA関数を使います。
それから、変数に2バイト文字はやめたほうがよいです。

例：
'------------------------------------------------

'Option Explicit
Option Compare Text
Sub IDをひとつだけにする()
Dim rw As Long
Dim i As Long
Dim j As Integer
　　rw = Range("B2000").End(xlUp).Row
　　Application.ScreenUpdating = False
　　For i = 7 To rw
　　　　If Cells(i, 2).Value Like "J*/J*" Then
　　　　　j = InStr(1, Cells(i, 2).Value, "/", 1)
　　　　　If j > 1 Then　'本来は、j >5 ですが、念のため
　　　　　　Cells(i, 2).Value = Mid$(Cells(i, 2).Value, 1, j - 1)
　　　　　End If
　　　　End If
　　Next i
　　Application.ScreenUpdating = True
End Sub

回答No.4

imogasi

推測ではコードの誤りというよりは、データが（このルーチン処理をするには）不適当なデータであると思う。
ーー
多分このケースではB列IDを見ただけでは判らないかと思う？
どの行で起こっているか（行数が多いようだが）
Sub test01()
For i = 1 To 1000
If (i Mod 20) = 0 Then MsgBox i
Next i
End Sub
（質問の場合は上記iが「行数」か。２０行おきにメッセージをだす。止まる前の　i から２０以内のデータを良く見ること）
ようなのを入れて、うまくいかない行を割り出してみては。
どこか空き列に、目印の値を入れてみるのも手。どの行で止まったか判ると思う。
終わりまで処理して、結果がおかしいより、不幸中の幸いだよ。
そしてそのセルのデータに注目すれば誤りの原因がわかるでしょう。
それらしきことをやってないようだが不思議。
ーー
プログラムがうまくいかないのは
（１）コードの作り方がまずい
（２）データが予想通りで無い（広く言えば上記（１）になるが）
２つあって、（２）も多い。大規模システムのダウンもこれが多い。
タイミング・組み合わせが絡むと原因究明が非常に難しい場合が多い。
（２）は質問されても、読者では典型的なエラーケースしか指摘できない。
参照
http://excel.onushi.com/function/search.htm
対象に検索文字列が含まれていない場合はエラー値#VALUE!が返されます。
開始位置に1以下の数値を指定するとエラー値#VALUE!が返されます。
ーーーー
＞行指定をせず、セルを単体で指定するとちゃんと・・
の意味は良くわからんが。

回答No.2

marbin

エクセルのバージョンが分かりませんが、
Split関数
を使う、ではダメですか？

回答No.1

okormazd

空のセルをSearchが参照してないか。
検索対象の文字数より、開始位置が大きいと質問のようになる。