Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16085 / 76734 ←次へ | 前へ→

【66120】Re:軽量化VBA
回答  metabeaux  - 10/8/2(月) 15:57 -

引用なし
パスワード
   数式⇒値、
空欄行・列を削除

だけですが、こんなのはどうでしょう?

Sub test()
  With ActiveSheet.UsedRange
    Dim r As Long, c As Long

    .Value = .Value
    
    r = .Rows.Count
    Do Until r = 0
      If WorksheetFunction.CountA(.Rows(r)) = 0 Then .Rows(r).Delete
      r = r - 1
    Loop
  
    c = .Columns.Count
    Do Until c = 0
      If WorksheetFunction.CountA(.Columns(c)) = 0 Then .Columns(c).Delete
      c = c - 1
    Loop
  End With
End Sub
1 hits

【66102】軽量化VBA 烏龍茶 10/7/29(木) 17:09 質問
【66103】Re:軽量化VBA neptune 10/7/29(木) 22:25 発言
【66104】Re:軽量化VBA じゃがりきん 10/7/30(金) 4:52 発言
【66120】Re:軽量化VBA metabeaux 10/8/2(月) 15:57 回答

16085 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free