Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17066 / 76732

←次へ　｜　前へ→


	【65125】Re:整列について

ichinose - 10/4/18(日) 9:22 -


	引用なし

	パスワード

おはようございます。
>
>　　Ａ列
>1　5500
>2 空セル
>3　3000
>4　3000
>5 空セル
>6 空セル
>7　6000
>8　2000
>
>空セルを上に詰めて整列
>
>　Ａ列
>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

これでは？

2 hits

▼

【65118】整列について ネガメジン 10/4/17(土) 18:11