hamachan.info カテゴリーへ
トップ | ログイン
結合したセルを解除して値を貼り付けるマクロ
2009年 07月 05日
何でも結合すればいいってもんじゃない。(-_-)

結合セルが不便に感じることは多々あります。

データが少なければ手作業でもいいのですが、データが何百となると
セルを解除して、空白のセルに値を貼り付ける作業も時間がかかりますね。

たとえば、↓のような表があります。
a0030830_1724950.gif

この結合されたセルを解除して、空白のセルに値を貼り付けたいと思います。
↓のような表に直したいのです。
a0030830_17254930.gif

いろいろなやり方があると思いますが、一応 ↓のマクロでもOKです。


Sub 結合を解除して貼り付け()

  Range("A2").Select
Do Until ActiveCell = ""
If ActiveCell.MergeCells Then
  ActiveCell.UnMerge
  Selection.FillDown
Else
  ActiveCell.Offset(1).Select
End If
Loop
  Range("A2").Select

End Sub
by hama_y | 2009-07-05 17:27 | Excel |▲TOPへ

<< 重複行の削除 マックのコーヒー >>



パソコンのお役立ち機能を一緒に学びませんか?[初心者のためのOffice講座 hamachan.info]のサポートブログです。
by はま
サイト内検索
記事ランキング
最新の記事
テキストボックス内で再変換す..
at 2017-11-10 22:04
Accessのナビゲーション..
at 2017-11-06 15:46
表の位置をスライドの中央に表..
at 2017-10-11 16:07
クイックアクセスツールバーに..
at 2017-10-11 15:02
Windows10のIMEで..
at 2017-09-10 10:08
Systemによってファイル..
at 2017-08-24 12:32
Windows10のIMEに..
at 2017-08-24 11:49
新規ブックのワークシート数
at 2017-08-11 20:27
表の縞模様ダイアログボックス..
at 2017-08-10 23:53
Windows10でWi-F..
at 2017-07-17 18:02
リンク
カテゴリ
全体
Windows
IME
Office共通
Word
Excel
PowerPoint
Access
Outlook
Internet Explorer
Outlook Express
ホームページビルダー
ATOK
一太郎
筆まめ
筆王
筆ぐるめ
PhotoshopElements
ネットワーク
PCインストラクター
ああ~お客様
(@_@)
iPhone
SharePoint
未分類
以前の記事
2017年 11月
2017年 10月
2017年 09月
more...
検索
外部リンク