Powered By 画RSS

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VBA 値が同じ行を結合させる

■VBA 値が同じ行が続いていたら、結合させる
どっかの質問コーナーに書いてあったコードを参考に書いたけど、URLロストしてしまった。
とりあえず、動くと思う。

Sub MargeMethod()
    '値が同じ行が続いていたら、結合させる処理

    Dim MargeCol1 As Integer
    ‘対象はA列
    MargeCol1 = 1
   
    Dim lngRowLst As Long
    Dim lngRowCnt As Long
    Dim lngRowGrp As Long

    '値が入っている最終行数を取得
    lngRowLst = Cells.SpecialCells(xlCellTypeLastCell).Row
   
    '開始行数
    lngRowCnt = 2

    Do

      lngRowGrp = lngRowCnt

      Do While Cells(lngRowGrp, MargeCol1).Value = Cells(lngRowCnt + 1, MargeCol1).Value
         lngRowCnt = lngRowCnt + 1
      Loop

      '警告を表示させない
      Application.DisplayAlerts = False
      '結合
      Range(Cells(lngRowGrp, MargeCol1), Cells(lngRowCnt, MargeCol1)).Merge
      '警告を表示させない設定を元に戻す
      Application.DisplayAlerts = True

      lngRowCnt = lngRowCnt + 1
   
    Loop Until lngRowCnt > lngRowLst

End Sub


世界でいちばん簡単なExcelVBAのe本
世界でいちばん簡単なExcelVBAのe本
関連記事
スポンサーサイト

この記事へのコメント

トラックバック

URL :

■スポンサードリンク
■プロフィール

ベタログ

管理人 : ベタログ (Twitterアカウント

思い立ったら、ジャンルを気にせず記事にする。それが自由というものだ。
そんな管理方針。
主に取り扱ってる事:オンラインゲーム(SDGO/Travian/ロードオブナイツ)、プログラミングメモ、ネット小説/書籍の感想/観葉植物など。

■まとめ記事
■カテゴリ
■最新記事
■PICKUP

個人的に押しているモノ


魚里高校ダンジョン部! 藻女神様と行く迷宮甲子園
魚里高校ダンジョン部! 藻女神様と行く迷宮甲子園
■感想記事
これぞ青春エンタメ小説。熱いですよ!

オーバーロード1 不死者の王
オーバーロード1 不死者の王
■感想記事
最強軍団が異世界を蹂躙するファンタジー。Web版も読めますが、凄まじい加筆がされているため、Web版読者も楽しめます。
■お勧め品
■最新コメント
■月別アーカイブ
検索フォーム
リンク
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。