[[20200522134405]]　『行、列、シート見出し、検索』（amazongar）　ページの最後に飛ぶ

『行、列、シート見出し、検索』（amazongar）

一つの列に[店舗名、住所、電話番号、創業、備考]などの
情報が25店舗分並んでます。
（項目名、店舗情報がそれぞれのセルに入ってます）
なお、店舗によって情報数は様々です。
25店舗の合計は500行～900行ぐらいです。

これを店舗ごとに25列に分けて表示させたい。
”店舗名”のセルがあったら、隣の列に改列する方法は
ありませんか。
リンクが張ってあるセルは、そのまま転記したいです。

以上、よろしくお願い致します。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 ＞”店舗名”のセルがあったら、隣の列に改列する方法はありませんか。

 これはホントに「店舗名」と言う３文字が入っていると言うことなんでしょうか？

 元祖赤福　なんて店舗名が入っていると言うことじゃないですよね？

（半平太） 2020/05/22(金) 14:28

ご連絡ありがとうございます。

実際に”店舗名”の記載に1セルを使っており、その下のセルに”元祖赤福”の記載があります。
（amazongar） 2020/05/22(金) 14:34

 B1セル =IFERROR(SMALL(IF($A$1:$A$1500="店舗名",ROW($A$1:$A$1500)),COLUMN(A1:BZ1)),"")

 B2セル =IF(B1="","",INDEX($A:$A,B1):INDEX($A:$A,IF(C1<>"",C1-1,MATCH("ーー",$A:$A))))

 ※B2セルの数式は右に必要なだけコピー

 <結果図>
  行  ______A______  ____B____  ______C______
   1  店舗名                 1             8 　..
   2  元祖赤福       店舗名     店舗名       
   3  住所1          元祖赤福   デパ地下鉄砲 
   4  電話番号1      住所1      電話番号2    
   5  創業1          電話番号1  創業2        
   6  備考1          創業1      備考2        
   7  備考2          備考1                   
   8  店舗名         備考2                   
   9  デパ地下鉄砲                           
  10  電話番号2                              
  11  創業2

（半平太） 2020/05/22(金) 15:12

ご丁寧な回答ありがとうございます。

まさに希望通りの結果でした。
仕事の作業が飛躍的にあがります。
本当にありがとうございます。
（amazongar） 2020/05/22(金) 15:34

≪追伸の質問≫
再度の質問をお許しください。

A列の”元祖赤福”や”デパ地下鉄砲”は情報元のサイトとリンクしております。
このリンク情報をそのまま転記先（3行）の”元祖赤福””デパ地下鉄砲”にも反映させたいです。

宜しくお願い申し上げます。

（amazongar） 2020/05/22(金) 16:20

 ＞A列の”元祖赤福”や”デパ地下鉄砲”は情報元のサイトとリンクしております。

 リンクとは何なのかよく分かりません。

 色んな事柄に使われる用語なので。
 多分、数式では無理っぽいことかなと推測していますが・・

 読み返したら、数式限定とは書いてなかったですね・・

（半平太） 2020/05/22(金) 16:27

的確な回答で無く申し訳ございません。
https://app.～　　　　のネット上にある情報元のページと
リンクしております。

宜しくお願い致します。
（amazongar） 2020/05/22(金) 16:36

 マクロですが

 Sub Test()
    Dim i As Long, j As Long, s As Long

    j = 2
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Cells(i, "A").Value = "店舗名" Then
            If s = 0 Then
                s = i
            Else
                Range(Cells(s, "A"), Cells(i - 1, "A")).Copy Cells(2, j)
                s = i
                j = j + 1
            End If
        ElseIf Cells(i, "A").Value = "" Then
            Range(Cells(s, "A"), Cells(i - 1, "A")).Copy Cells(2, j)
        End If
    Next i
 End Sub

（ピンク） 2020/05/22(金) 16:47

ありがとうございます。

マクロ以外に方法はございませんか？

無ければ少し勉強をしながらやってみたいと思います。

上記をどのようにすれば良いのかもう少しお教えください。

（amazongar） 2020/05/22(金) 17:05

 >マクロ以外に方法はございませんか？

 やはり数式での回答を望まれていたのですね

 >マクロ以外に方法はございませんか？

 う～ん、達人のアドバイスを待ってみましょう。

（ピンク） 2020/05/22(金) 17:20

 マクロが簡便です。

 ＞上記をどのようにすれば良いのか

 1. データシートの「シート見出し」を右クリックして、「コードの表示」を選ぶ
 2. 画面中央の白いエリアにピンクさんのマクロコードをコピペする。
 3. F5キーを押下する（マクロTest が 実行される）
 4. 希望が叶う。

（半平太） 2020/05/22(金) 17:47

（半平太）様、（ピンク）様

この度は誠にありがとうございます。
希望が叶いました。
これで、日々の業務効率が飛躍的に向上いたします。

本当に御礼を申し上げます。

（amazongar） 2020/05/22(金) 18:42

コメント返信：

[ 一覧(最新更新順) ]

[[20200522134405]] 『行、列、シート見出し、検索』（amazongar） ページの最後に飛ぶ

[[20200522134405]]　『行、列、シート見出し、検索』（amazongar）　ページの最後に飛ぶ