- ベストアンサー
オートフィルタを使用しないでデータベースの空白セルを間詰めする方法について
- マクロやピポットテーブルを使用せずに、頻繁に更新されるデータベースの空白セルを自動で間詰めする方法について教えてください。
- オートフィルタを使用できないデータベースの空白セルをマクロやボタンひとつで処理する方法について教えてください。
- データベースの項目が一定ではないため、ピポットテーブルを使用しないで空白セルの間詰めを自動化する方法について教えてください。
- deepimpact
- お礼率43% (76/173)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
>> オートフィルタを使わない理由はマクロでは >> オートフィルタをつかえないですよね？ >>（つかえるんですか？） ？？？使えますよ。 示されているサンプルのような A行の任意の行にデータがなければB列の同じ行にもデータがないというようなきれいな形の場合， Sub 空白以外をSheet2に貼り付け() Columns("A:A").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>" Columns("A:B").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste End Sub でオートフィルタを使って，Sheet1のデータの空白でない行をSheet2に貼り付けられます。 でも一般にはこの方法は使いません。 汎用的でないですし，削除ではなくコピーになるので。 一般的には http://oshiete1.goo.ne.jp/kotaeru.php3?q=1338987 にも書かれている， データのある最終セルを求めて， １つずつ上に上がりながら， もしセルが空白ならその行を削除していく。 Sub TestDelete() With Range("A1:A" & Range("A65536").End(xlUp).Row) .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With End Sub というマクロがよく使われます。 その下に書かれてあるマクロも参考になると思います。
お礼
返事遅れまして申し訳ありません 本当にありがとうございました。 すごく参考になりました！！