QNo.5617072の続きです。

質問

QNo.5617072の続きです。

画像の通りエクセルと、標準モジュールに入力すればB2には、
053477;053478;053479;053480;053481;053482;053483;
053484;053485;053486;057263;057264;057265;057266;
057267;057268;057269;057270;057271;057272;052260
のようになるのでしょうか？

ご教授をお願い致します。

回答No.1

xls88 · ベストアンサー

If RG Is Not Null Then RS = RS & SP & RG
を
If RG <> "" Then RS = RS & SP & RG
としてみればどうでしょうか。

お礼

ご回答ありがとうございます。

xls88様のおっしゃる通りに変更してみたら出来ました。

本当にありがとうございました。

回答No.3

Wendy02

こんにちは。

上手くいかない理由は、標準モジュールに入れていないのか、別のブックに入れたユーザー定義関数だと思います。

簡単に直すには、表示する該当のブックの標準モジュールに入れてください。もし、それをグローバル化（どこでも使える）ようにするには、単独のブックに入れてアドインに変えます。なお、Public ステートメントを入れても変化しません。

ちなみに、私なら、Microsoft 風に、別なコードにしますが、それはやめておきます。

お礼

Wendy02様ご回答ありがとうございます。

標準モジュールに入れておりました。それ以外の理由も検討してみたのですが、
私にはまったくＶＢＡの知識がなく、Wendy02様のおっしゃっていることを、
実践することができませんでした。

せっかくご回答いただいたのに本当に申し訳ありませんでした。
他のご回答者様の回答で私のやりたいことはできました。
ただ全くなにをやっているのか理解することはできませんでした。

なのでMicrosoft 風に別なコードというのがとても気になります。

Wendy02様本当にありがとうございました。

回答No.2

n-jun

Function RENKETSU(HANI As Range, SP As String) As String
Dim RG As Range, RS As String

For Each RG In HANI
If Len(RG) > 0 Then RS = RS & SP & RG.Value
Next RG

RENKETSU = Mid(RS, 2, Len(RS) - 1)
End Function

これでやったら一応出来た感じですけど。

お礼

ご回答ありがとうございます。

n-jun様のおっしゃる通りに変更してみたら出来ました。

本当にありがとうございました。

ベストアンサーはおひとりしか選べないため、投稿が早いxls88様にさせていただきました。
n-jun様はいちから考えてくれていたと推測しておりますが、本当に申し訳ありません。

皆様のお力には頭が下がります。

n-jun様ありがとうございました。