21. 第三の男(1949/英)キャロル・リード
上記のデータを次の5個のセルに分けて移行する方法を教えて下さい。21. 第三の男 1949 英 キャロル・リード
「.」「(」「/」「)」を区切りにして分けられれば良いのですが、どうぞ宜しくご教示下さい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

を区切りにして


ですと 4回しなければなりませんので
先にをどれかに置き換えしてから
[区切り位置」のほうが いいかと

[編集]→[置換]で「. 」「(」 「)」を
「/」に 置き換えして 
[データ]→[区切り位置」
ウィザード 1/3 は そのまま [次へ]
ウィザード 1/3 で
その他にチェックを入れ 隣の□に「/」入力で
[完了]
「Excel2003で」の回答画像1
    • good
    • 0
この回答へのお礼

有難う御座いました。
置き換えは全く気付きませんでした。
お世話になりました。

お礼日時:2009/04/03 18:51

区切り位置ウィザードではいけませんか



区切り位置で楽々データ分割
http://kokoro.kir.jp/excel/delimitation-position …
    • good
    • 0
この回答へのお礼

有難う御座いました。
参考になりました。

お礼日時:2009/04/03 18:53

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Q【エクセルvba】(1)(2)(3)を区切りとして分けたい 配列

こんばんは。
もしエクセルで可能なら教えていただきたいです。(2003です)
A1セルに
(1)りんご(2)みかん(3)バナナ
と入力されています。

これを
A2にりんご、B2にみかん、C2にバナナ
とSplitと使って区切りたいのですが不可能でしょうか?

以下がここのサイトを参考にして作ったサンプルマクロです。

Sub サンプル()
Dim myStr As String
Dim ar As Variant
myStr = Cells(1, 1)

ar = Split(myStr, "") '←この部分をどうすればいいのかわからない

Cells(2, 1).Resize(1, UBound(ar) + 1).Value = ar
End Sub

やはり、区切る文字が複数ある場合は不可能でしょうか?
ご教授よろしくお願いします。

Aベストアンサー

一例ですが正規表現を用いてます。

Sub try()
 Dim myReg As Object
 Dim myStr As String
 Dim ar As Variant

 Set myReg = CreateObject("VBScript.Regexp")
 myReg.Pattern = "\(\d+\)"
 myReg.Global = True

 myStr = Cells(1, 1).Value
 If myReg.Test(myStr) = False Then Exit Sub

 ar = Split(myReg.Replace(myStr, ","), ",")
 Cells(2, 1).Resize(1, UBound(ar) + 1).Value = ar

 Set myReg = Nothing
End Sub

ご参考になれば。

QExc 区切り位置 列指定→特定の一字の右で区切り→特定の一字が消えてしまう。

こんにちはいつもお世話になってます。

Excel2003の区切り位置機能について教えて下さい。

I列にセルが(goo小学校一年生)~(goo小学校六年生)まで数十個入ってます。※カッコはありません。
一括で、(goo小学校)と(●年生)の列に分けたいのですが、(校)の文字で分けるように設定すると(したつもり)、(goo小学)と(●年生)部分に分かれてしまいます。

どのように設定すれば良いのでしょうか?
よろしくお願いします。

Aベストアンサー

「区切り文字」はデータとして扱われない(区切りを示すだけ)と解釈され、
区切り後になくなるのは止むを得ないでしょう。

方法は2つかな?

1.「校」を補う。
2.すべてが(goo小学校)なら、LeftまたはMid関数で切り出し位置を指定する。

Qエクセル マクロ webクエリ URL;http://…/2009/03/03/….html って形にするには?

エクセルのマクロでwebのデータを取り込みたいのですが

2009年3月3日のデータを取る時のアドレスがhttp://…/2009/03/03/….htmlの場合
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://…/2009/03/03/….html"
となりますが、これをLoopさせて3/2、3/1、2/28、2/27…のデータを取りたいのですが
どういう形でLoopさせればよいのでしょう?
単純にMonthやDayを使うと1~9月や日は一桁になってしまうと思いますけど

Aベストアンサー

Date型の変数を定義して2009/03/03で初期化後-1しながらLoopでは?

Dim dt As Date
Dim url As String
  dt = DateValue("2009/03/03")
    url = "URL;http://…/" & dt & "/….html"
    dt = dt - 1

Qyyyy/mm/ddからyyyy/mmへの変換

いつもお世話になっております.

Excelの第3列の2行目~2027行目までのセルに yyyy/mm/dd と入力されています.
dd (日付)を取り除き,yyyy/mm という入力に直したいのですが,方法が分からずに困っております.

Sub test()
Dim row As Integer
For row = 2 To 2027
   Sheets("Sheet1").Cells(row, 3).NumberFormat = "yyyy/mm"
Next
End Sub

上記のようにしてみたのですが,セルの表示形式が変わっただけで,
数式バーの表示を見てみると実質的に dd が残っています.

良い方法をご存知の方がいらっしゃいましたら,
ご教示の程どうぞ宜しくお願いいたします.

Aベストアンサー

セルD2に以下の数式を入力
 =YEAR(C2)&"/"&MONTH(C2)
D3~D2027にD2をコピーして貼り付けでどうでしょうか?

Qエクセルで「2016/5/12」を「2016/5」または「2016年5月」に変換したい

エクセルで「yyyy/mm/dd」となっているものを、計算式などでyyyy/mm/dd、もしくはyyyy年mm月に変換したいのですが、簡単な方法はないでしょうか?

私がやっているのは、3列使い、計算式のYEARとMONTHをつかい、CONCATENATEで
”YEARの列"+"/"+"MONTH" と合体させるやり方ですが、もうちょっと簡単に1発で済む
やり方はないものでしょうか???

Aベストアンサー

タイトル通りなら
=TEXT(A1,"yyyy/m")
=TEXT(A1,"yyyy年m月")

質問文の
>計算式などでyyyy/mm/dd、もしくはyyyy年mm月に
=TEXT(A1,"yyyy/mm/dd")
=TEXT(A1,"yyyy年mm月")


このカテゴリの人気Q&Aランキング

おすすめ情報