エクセルVBAでセル内にある文字列のみを配列に入れたい

質問

VBAでセルに以下のような文字列が入っています。
'6AL847A987_
シングルクオーテーションと7の後のスペースを除いた箇所だけを配列に取り込みたいのですが、何かいい方法はないでしょうか？
ちなみに
6AL847A987
だけの場合もあり、スペースがない場合もあります。

すみませんが、よろしくお願いします。

回答No.3

Yes_No_F

こんばんは。
置換え関数の「Replace」を使用する例を紹介します。
例えばセルA1に、質問で言う「'6AL847A987_」の文字が入っている場合は下記の様にすると出来ます。

Sub test()
Dim tx As String
tx = Range("a1").Value
tx = Replace(tx, " ", "") '←「_」を""に置換え
tx = Replace(tx, "'", "") '←「'」を""に置換え
Range("a1").Value = tx
End Sub

の様な記述になります。

回答No.2

noname#31387

こんばんは
'からスペースの間の文字列を取り出しています。
スペースは半角に対応しています。
配列に取り込むのはどの様な配列ですか？
一次元？多次元？ジャグ配列？
詳細が書かれてないので、私にはここまでしか分かりません。
勘違いならごめんなさい。

Sub Test()
Dim myStr As String, myAns As String
Dim mySt As Long, myEn As Long
myStr = ActiveSheet.Range("A1").Value
mySt = InStr(myStr, "'")
myEn = InStr(myStr, " ")
If myEn = 0 Then myEn = Len(myStr)
myAns = Mid(myStr, mySt + 1, myEn - mySt)
MsgBox myAns
End Sub

回答No.1

imogasi

＜シングルクーテーションの問題＞
（１）文字　であれば除くのは簡単
（２）プレフィックスの場合があるかも
http://dospara.okwave.jp/qa2699896.html
再代入すればプレフィックスは消えるかも知れない。
＞後のスペースを除いた箇所
Trim関数があります。（LTrim,RTrim もある）
＜配列にセルの値を取り込む問題＞
せっかくエクセルのセルはＣｅｌｌｓ（ｉ，ｊ）で２次元配列的に扱えるので、わざわざ配列に入れるのは、避けられませんか。
配列に入れた後に、多数回の繰り返し演算をする必要があるのでしょうか。それならやむをえないが。

お礼

返信遅くなりました。すみません。
回答ありがとうございます。
スペースはTrim関数を使えばいけそうですね。
早速試したいと思います。
配列に入れるのは、多数回の演算処理を行いたいからです。
ありがとうございましたー！