文字列を区切る

たけうちとおる (2009年5月26日) | コメント(0) | トラックバック(0)
宮崎産　黒毛和牛　こま切れ みたいな文字列を最初の"　"（全角スペース）で区切ります。 
mystr = Cells(L, 1).Value
num = InStr(mystr, "　")
If num = 0 Then
    Lstr = ""
     Rstr = mystr
Else
     Lstr = Left(mystr, num - 1)
     Rstr = Mid(mystr, num + 1)
End If
Cells(L, 2).Value = Lstr
Cells(L, 3).Value = Rstr

カテゴリ:

トラックバック(0)

トラックバックURL: http://winnote.adg7.com/mt/mt-tb.cgi/176

コメントする

検索

リンク

このブログ記事について

このページは、たけうちとおるが2009年5月26日 16:28に書いたブログ記事です。

ひとつ前のブログ記事は「入力ボックスを出す」です。

次のブログ記事は「シートを選択する」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

エントリー一覧