エクセル マクロ デバックについて

質問

Dim i As Integer
Dim inn As Integer
i = 1
Do While Cells(i, "a") <> " "
inn = InStr(1, Cells(i, "a"), "印")
Cells(i, "b") = Left(Cells(i, "a").Value, inn - 1)
i = i + 1
Loop

エクセル画面
Ａ１田中花子　印　Ｂ１田中花子　　　　　
Ａ２山田太郎　印　Ｂ２山田太郎
Ａ３雲　太郎　印　 Ｂ３雲　太郎

名前の後に印という文字がついているのをとり、隣のセルに
取り出していくマクロです。
実行すると処理はできているのですが、
Cells(i, "b") = Left(Cells(i, "a").Value, inn - 1)
でデバックになります。
よろしくお願いします。

回答No.1

mt2008 · ベストアンサー

「デバッグになる」の意味がちょっと判りませんがエラーになるという事でしょうか？

で、あればパッと見て気になったのが↓のコード
Do While Cells(i, "a") <> " "

本当はA列のセルにが空白が出るまでループさせたいんじゃ無いでしょうか？
現在は半角スペース1個が出るまでループしています。

そのせいでA列が空白でも処理が進み、変数inn＝0に。
そしてCells(i, "b") = Left(Cells(i, "a").Value, inn - 1)で、エラーになります。
空白でループを抜けたいなら　Do While Cells(i, "a") <> ""

お礼

""で解決しました。
自分で考えていたらいつまでもわからなかったと思います。
本当にありがとうございました。

回答No.2

mu2011

ところで何のご質問なのでしょうか？
取りあえず、気になった点です。
(1)要件が曖昧と思う
　・印がない場合はどうする
　・姓名に印が有る場合はどうするのか
　・姓名と印の間のスペースの有無
(2)Do While Cells(i, "a") <> " "　⇒　Do While Cells(i, "a") <> ""　ではないか？
(3)「印」を検索して相対位置からLEFTの文字数としているが、「姓名」と「印」の間のスペースの考慮がされていない

お礼

(2)""で解決しました。
わかりにくい質問を解析していただきありがとうございました。