[[20140716153858]]　『ＶＢＡ　特定文字（-）間の文字を抜き出ししたい』（みや）　ページの最後に飛ぶ

『ＶＢＡ　特定文字（-）間の文字を抜き出ししたい』（みや）

マクロで２つの事をしたいです。

データはシート１に入力されています。
データの構成は下記の通り
Ａ列（管理番号）Ｂ列（図面）Ｃ列（品番）Ｄ列（数）Ｅ列（商品名）・・・Ｈ列まで使用しています。
１行目は上記の見出し、２行目から実データが入っています。（行数ＭＡＸ１０００行）

（やりたいこと）
Ｂ列の図面文字をＩ列とＪ列に一部分を抜き出しするマクロを組みたいです。
（Ｂ列のデータのサンプル）
A1123-01-A11
（３～４桁）－（１～４桁）－（１～４桁）と桁数が不確定です。
この中から最初のハイフンまでをＩ列へ
ハイフンで囲まれた部分をＪ列へ
というマクロを教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 -でSplitした二つ目(インデックスは1)を取得してはいかがでしょう？
（カリーニン） 2014/07/16(水) 16:19

カリーニンさん

ありがとうございます。
下記のマクロで最初のハイフンまでは抽出できましたが、ハイフンとハイフンの間が上手く抜き出しできませんでした。何を加えれば出来るのでしょうか？

Sub 分割()

    Dim i As Long
    For i = 2 To 100
        tmp = Split(Cells(i, 2), "-")
        Cells(i, 9) = tmp(0)

    Next i

End Sub

（みや） 2014/07/16(水) 16:57

 (インデックスは1)

 >tmp(0)

↓

 tmp(1)

（カリーニン） 2014/07/16(水) 17:07

カリーニンさん

ありがとうございます。
無事完成しました！！
（みや） 2014/07/17(木) 10:13

コメント返信：

[ 一覧(最新更新順) ]

[[20140716153858]] 『ＶＢＡ 特定文字（-）間の文字を抜き出ししたい』（みや） ページの最後に飛ぶ

[[20140716153858]]　『ＶＢＡ　特定文字（-）間の文字を抜き出ししたい』（みや）　ページの最後に飛ぶ