[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『隣同士合っていたら結合』(れれれれれ)
過去案件を閲覧したのですが、見つからず質問します。
クロス集計されたエクセルがあり
9列目から100列あり
同行にて隣同士の文字、数字が合っていたら結合したいです。
なかには40列ぐらい結合するかたちにもなるかとおもいますが、マクロって組めますか
< 使用 Excel:Excel2016、使用 OS:Windows7 >
ただ、私は作成依頼お断り方針なのでアイデアだけ。
for each next ステートメントでusedrangeを巡回して、
ターゲットセルを含む結合範囲(MergeArea)の1番目のセルの値と、ターゲットセルの右セルを含む結合範囲(MergeArea)の1番目のセルの値が一致したら、それらの範囲をMergeする
という処理でどうでしょうか?
スマホから投稿している都合、テストしていないので実際に処理できるか不明なのと結合処理を繰り返すから、実行速度は期待できそうにないので、他の回答があったら↑は、無視してください。
(もこな2) 2019/08/01(木) 08:58
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
空白はそのままにしたいです
(れれれれれ) 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(土) 16:10
おい管理人ななしのやつ出禁にしろ。あとななしのコメント消せ。
令和になってまだいるのかよ。平成のマナー悪いやつ。
(れれれれれ) 2019/08/04(日) 12:34
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.