そうかおうちでごはん屋さん 勝手に地図表示 その3

店舗数よりマーカーが多い

マーカーの数を調べたら、リストより多くて300オーバー。
あれれ?と思って詳しく見ると1つの店舗で複数行に情報入ってると、
全部別扱いになるのね。そりゃそうだ。

何とか1店舗1行に整理したい

まあ、仕事じゃないし整理したいけど、時間はあまり掛けたくない。
とりあえず、どこまでが1店舗の情報なのかはうまく拾う方法がなさそうだったので
1列目の管理番号だけ手作業で1店舗分を結合した。

いい方法が思いつかないので力業でマクロ作成。


Public Sub fixrow()
    Dim MaxCol
    Dim MaxRow
    Dim count
    MaxCol = ActiveSheet.Cells(1, 1).End(xlToRight).Column
    MaxRow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row - 1        
    i = 1
    Do While i <= MaxRow
        '結合している行を取得
        count = Cells(i, 1).MergeArea.Rows.count
        For x = 1 To MaxCol
            Text = ""
            For y = i To i + count - 1
                '結合解除
                If Cells(y, x).MergeCells Then
                    Cells(y, x).MergeCells = False
                End If
                'セルのテキストを結合
                Text = Text & Cells(y, x).Text
            Next y
            '一番上のセルに結合したテキストを入れる
            Cells(i, x).Value = Text
        Next x
        'いらない行を削除
        For y = 1 To count - 1
            Rows(i + 1).Delete
            MaxRow = MaxRow - 1
        Next y
        i = i + 1
    Loop    
End Sub

とりあえず、整理したエクセルはこちらtakeout.xlsx

お気軽にコメントしてください(管理者の承認後に表示されます)

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です


The maximum upload file size: 8 MB.
You can upload: image, audio, video, document, spreadsheet, interactive, archive, other.
Links to YouTube, Facebook, Twitter and other services inserted in the comment text will be automatically embedded.

Translate »