• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• Mook2008/06/24 12:04:20

  満足150pt

  VBA を使用した例ですがどうでしょうか。

  
  

  シートタブを右クリックし「コードの表示」を選択し、そこに下記を貼り付けて、

  EXCELに戻って、Alt+F8でsepName を選択して実行してください。

  
  

  元のデータを書き換えてしまいますので、バックアップを取ってからお試しください。

  Sub sepName()
      Dim lastRow As Long, i As Long, j As Long
      lastRow = Range("A" & Rows.Count).End(xlUp).Row
      For i = lastRow To 1 Step -1
          For j = 6 To 3 Step -1
              If Cells(i, j).Value <> "" Then
                  Rows(i).Copy
                  Rows(i + 1).Insert Shift:=xlDown
                  Cells(i + 1, 2).Value = Cells(i, j).Value
                  Cells(i + 1, 3).Resize(1, 10).Value = ""
                  Cells(i, j).Value = ""
              End If
          Next
      Next
  End Sub
  

  スター

  • sapporobeer 2008/06/24 13:23:31

    すごいぃ！！！こっちの方が更に自分が求めていた形です！

    ありがとうございます。

その他の回答

• hiko3karasu2008/06/24 10:40:03

  満足5pt

  ああ、２度手間だ。

  　

  数字は必ず１文字？

  文字は必ず3種類？

  文字は必ず「・」で区切られている？

  スター

  • sapporobeer 2008/06/24 10:46:05

    数字は、１~3488までです。

    文字は人の名前になりますので、無数です。

    また、文字は各セルで区切られています。

arhbwastrh2008/06/24 10:42:18

満足10pt

Ａ１セル　1りんご・ばなな・もも

Ｄ１セル　=FIND("・",A1)-1

Ｅ１セル　=FIND("・",A1,D1+2)

Ｆ１セル　=LEN(A1)

Ｇ１セル　=LEFT(A1,D1)

Ｈ１セル　=LEFT(A1,1) & MID(A1,D1+2,E1-D1-2)

Ｉ１セル　=LEFT(A1,1) & RIGHT(A1,F1-E1)

区切り文字が「・」以外なら、"・"の部分を"/"とか"@"などに変えてください。

また、複数行対応したいときは、それぞれのセルをクリックして、セルの右下の黒い四角の部分をクリックし、下方向にドラックさせてください。

スター

• sapporobeer 2008/06/24 10:53:27

  確かに、１りんご１ばなな１ももになりました。

  それが、

  １りんご

  １ばなな

  １もも

  というな並びを自動的に出来るものを希望していました。惜しいです。

arhbwastrh2008/06/24 10:55:02

満足10pt

では、もう少し条件を細かく書いてください。

仕様がわからないと、中々ご希望の回答が出来ませんので・・

スター

• sapporobeer 2008/06/24 11:04:24

  申し訳ありませんでした。

  391 阿部 新井 飯岡　岩崎　重田

  392 花田 安田 山下

  393 岩本 梅津 久保　小林　服部

  （一つ一つはセルに入っています）

  というのを、

  ３９１阿部

  ３９１新井

  ・

  ・

  ・

  ３９２花田

  というように縦1列に並べたかったのです。

hiko3karasu2008/06/24 11:14:08

満足10pt

一つ一つはセルに入っています

の意味ですが

A1のセルに391

B1のセルに阿部

C1のセルに新井

・・・・

ということでしょうか？

それとも

A1のセルに　「391 阿部 新井 飯岡　岩崎　重田」

でしょうか？

　

横に最高何人分名前がありますか？

名前の区切りはスペースだけ？

氏名はくっついている？

　「阿部ジョージ」「新井素子」

　「阿部 ジョージ」「新井 素子」

スター

• sapporobeer 2008/06/24 11:21:04

  ＞一つ一つはセルに入っていますの意味ですが・・

  おっしゃるとおり、A1のセルに３９１B１のセルに阿部、・・・となります。

  あと横にはMax5人ありますが、１～5人でまちまちです。

  また、氏名はくっついています。

cajpya2008/06/24 11:27:35

満足80pt

ツール→マクロ→Visual BASIC editer

挿入→標準モジュール

出てきたウィンドウに以下を貼り付け、F5をおしてください。

（マクロを選択が出てきたらtestというマクロを実行してください

Sub test()
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    x = 3
    y = 1
    i = 0
    y2 = 1
    
Do While i = 0
    If Cells(y, x).Value = "" Then
        y = y + 1
        x = 3
        
        If Cells(y, x).Value = "" Then
            i = 1
        End If
    Else
        a = Cells(y, x).Value
        Cells(y2, 1).Value = Cells(y, 2).Value & a
        y2 = y2 + 1
        x = x + 1
    End If
Loop
    
End Sub

スター

• sapporobeer 2008/06/24 13:20:17

  ありがとうございます！ビンゴです！！

SALINGER2008/06/24 12:45:37

満足50pt

ExcelVBAを使った方法です。

使ったことがなければ以下を参考に。

http://www.officepro.jp/excelvba/ini/index1.html

http://www.officepro.jp/excelvba/ini/index2.html

http://www.officepro.jp/excelvba/ini/index3.html




次のコードを標準モジュールに貼り付けて、データのあるシートを開いた状態で実行してください。

新規シートが追加されて、データを並べ替えて表示します。

ub Macro()
    Dim ws As Worksheet
    Dim ns As Worksheet
    Dim c As Integer
    Dim r1 As Long
    Dim r2 As Long
    
    Set ws = ActiveSheet
    Set ns = Worksheets.Add
    
    r1 = 1
    r2 = 1
    While ws.Cells(r2, 1).Value <> ""
        c = 2
        While ws.Cells(r2, c).Value <> ""
            ns.Cells(r1, 1).Value = ws.Cells(r2, 1).Value
            ns.Cells(r1, 2).Value = ws.Cells(r2, c).Value
            r1 = r1 + 1
            c = c + 1
        Wend
        r2 = r2 + 1
    Wend
End Sub

スター

• sapporobeer 2008/06/24 13:27:08

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

• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2008-06-24 10:28:26

終了日時

2008-06-24 13:30:17

回答条件

1人2回まで

この質問のカテゴリ

• ビジネス・経営
• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者21時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者121時間前
• 内定してほしいポケモンはいますか？匿名質問者21時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ