Excel VBA質問箱 IV

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

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


17072 / 76738 ←次へ | 前へ→

【65125】Re:整列について
発言  ichinose  - 10/4/18(日) 9:22 -

引用なし
パスワード
   おはようございます。
>
>  A列
>1 5500
>2 空セル
>3 3000
>4 3000
>5 空セル
>6 空セル
>7 6000
>8 2000
>
>空セルを上に詰めて整列
>
> A列
>1 5500
>2 3000
>3 3000
>4 6000
>5 2000
>6
>7
>8
>歯抜けの状態はランダムです。
>宜しくお願いします。

この例題できちんと、やりたいことが記述されていますから、
質問者さんの記述が悪いと一概には言えませんね!!

ただ、整列は一般的にソート(並べ替え)と解釈されますからね。

Sub sample1()
  With Range("a2", Cells(Rows.Count, "a").End(xlUp))
    If .Row > 1 Then
     On Error Resume Next
     .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     On Error GoTo 0
    End If
  End With
End Sub

これでは?
0 hits

【65118】整列について ネガメジン 10/4/17(土) 18:11 質問
【65119】Re:整列について teian 10/4/17(土) 18:35 発言
【65121】Re:整列について ネガメジン 10/4/17(土) 21:30 質問
【65122】Re:整列について teian 10/4/17(土) 22:19 発言
【65123】Re:整列について ネガメジン 10/4/17(土) 22:52 質問
【65128】Re:整列について teian 10/4/18(日) 11:38 発言
【65131】Re:整列について ichinose 10/4/18(日) 12:20 発言
【65136】Re:整列について teian 10/4/18(日) 17:01 発言
【65130】Re:整列について Hirofumi 10/4/18(日) 12:08 回答
【65125】Re:整列について ichinose 10/4/18(日) 9:22 発言
【65137】Re:整列について ネガメジン 10/4/18(日) 17:01 質問
【65139】Re:整列について teian 10/4/18(日) 17:25 発言
【65146】Re:整列について ネガメジン 10/4/19(月) 11:17 お礼
【65145】Re:整列について ネガメジン 10/4/19(月) 11:08 お礼

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