[[20190801055859]] 『隣同士合っていたら結合』(れれれれれ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『隣同士合っていたら結合』(れれれれれ)

過去案件を閲覧したのですが、見つからず質問します。

クロス集計されたエクセルがあり
9列目から100列あり
同行にて隣同士の文字、数字が合っていたら結合したいです。

なかには40列ぐらい結合するかたちにもなるかとおもいますが、マクロって組めますか

< 使用 Excel:Excel2016、使用 OS:Windows7 >


>マクロって組めますか
出来る出来ないで言えば出来るとおもう。

ただ、私は作成依頼お断り方針なのでアイデアだけ。

for each next ステートメントでusedrangeを巡回して、
ターゲットセルを含む結合範囲(MergeArea)の1番目のセルの値と、ターゲットセルの右セルを含む結合範囲(MergeArea)の1番目のセルの値が一致したら、それらの範囲をMergeする

という処理でどうでしょうか?
スマホから投稿している都合、テストしていないので実際に処理できるか不明なのと結合処理を繰り返すから、実行速度は期待できそうにないので、他の回答があったら↑は、無視してください。

(もこな2) 2019/08/01(木) 08:58


Sub main()
    Dim c As Range, cc As Range, r As Range
    For Each c In ActiveSheet.UsedRange.Rows
        Set r = c.Cells(1)
        For Each cc In c.Cells
            If cc.Value = cc.Offset(, 1).Value Then
                Set r = Union(r, cc.Offset(, 1))
            Else
                If r.Cells.Count > 1 Then Application.DisplayAlerts = False: r.Merge: r.HorizontalAlignment = xlCenter
                Set r = cc.Offset(, 1)
            End If
        Next cc
    Next c
End Sub
(mm) 2019/08/01(木) 10:45

返信ありがとうございます。
過去分みながらc8列以降を範囲にしたいのですが、7列目も結合してしまいます。
また空白も結合してしまい。

空白はそのままにしたいです
(れれれれれ) 2019/08/01(木) 23:42


 おはようございます ^^
>>9列目から100列あり 
しかご説明がないのですが。。。I列 〜 DD列かと思っていました。何行目からは特定できません。
もうすこし、情報の説明を(セル番地、シート名、等)、詳しくされた方が、行き違い、思い違いがな
くていいように思います。気が付いた点だけですみません。m(_ _)m

 例。。。K〜Lのあいだにたくさん同じような情報があるとします。^^;

     |[A]|[B]|[C]  |[D]  |[E]  |[F]  |[G]  |[H]  |[I]  |[J]  |[K]  |[L]   |[M]   |[N]    
 [1] |   |   |     |     |     |     |     |     |     |     |     |      |      |       
 [2] |   |   |題   |     |日付 |     |     |     |     |     |     |      |      |       
 [3] |   |   |XX |     |Y   |     |     |     |     |     |     |      |      |       
 [4] |   |   |     |     |     |     |     |     |     |     |     |      |      |       
 [5] |   |   |AA |     |     |     |     |     |     |     |     |      |      |       
 [6] |   |   |     |     |     |     |     |     |     |     |     |      |      |       
 [7] |   |   |項目1|項目2|項目3|項目4|項目5|項目6|項目7|項目8|項目9|項目98|項目99|項目100
 [8] |   |   |    1|    3|    3|a    |    5|    5|n    |n    |n    |     0|k     |k      
 [9] |   |   |j    |l    |    0|    0|    0|    0|    0|a    |    0|     0|      |       
 [10]|   |   |a    |g    |     |     |    3|    2|    2|    2|    1|     1|      |       

 こんなかんじで フォーマットが解るよ〜に ↑ わかりにくいかも? ^^;;; 
(隠居じーさん) 2019/08/02(金) 07:43

隠居じーさんさんありがとうございます。
空白は結合無しにしたいです。
クロス集計されたものを再度マクロで加工ってむずいっすよね
(れれれれれ) 2019/08/03(土) 15:32

>こんなかんじで フォーマットが解るよ〜に

に対してなんで返事しないの?

() 2019/08/03(土) 16:10


ななしのやつ おめーだれだ? いちいちあらすなよ
(れれれれれ) 2019/08/04(日) 12:07

このサイト、マナー悪いやつ多すぎだろ。
おいななし、おめーリアルで見つけたら
どうなるか覚えとけよ。

おい管理人ななしのやつ出禁にしろ。あとななしのコメント消せ。
令和になってまだいるのかよ。平成のマナー悪いやつ。
(れれれれれ) 2019/08/04(日) 12:34


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.