![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
1行目に1が入力されている列を削除するのに下記で処理しようとしましたが、
時間が結構かかってしまいます。
(1行目に1があれば列削除を、最終列→B列まで繰り返す処理としています。)
おそらく1列ずつ削除している為、時間がかかっていると思いますが、
対象の列を一括削除するような処理にすれば下記よりは速くなるのかなと思って
いるのですが方法あるでしょうか?
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
End With
lastColLO = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 0 To lastColLO - 1
If .Cells(1, lastColLO - i).Value = "1" Then
.Columns(lastColLO - i).Delete Shift:=xlToLeft
End If
Next
No.2ベストアンサー
- 回答日時:
こんにちは!
一例です。
Sub Sample1()
Dim j As Long
Dim myRng As Range
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, j) = 1 Then
If myRng Is Nothing Then
Set myRng = Cells(1, j)
Else
Set myRng = Union(myRng, Cells(1, j))
End If
End If
Next j
If Not myRng Is Nothing Then
myRng.EntireColumn.Select '//←列選択でやめている★//
End If
End Sub
※ とりあえず対象列選択でやめています。
一気に削除したい場合は「★」の行を
>myRng.EntireColumn.Delete
に変更してください。m(_ _)m
No.4
- 回答日時:
削除する列ですが、1行目の1にこだわりますか?
例えば、「1行目に何らかの実数が入力されている列を削除する」で良ければ、こんなに簡単にできますよ。
Sub sample()
Rows("1:1").SpecialCells(xlCellTypeConstants, 23).EntireColumn.Delete
End Sub
No.1
- 回答日時:
直接の回答にはなっていませんが、
Application.ScreenUpdating = False
でも早くなるはずです。
最後に
Application.ScreenUpdating = True
をお忘れなく。
試してみる価値はあると思います。
参考URL:Office TANAKA
画面を止める
http://officetanaka.net/excel/vba/speed/s1.htm
ありがとうございます。
質問本文に記載していますが下記ですでに入れておりました。
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか?
Excel(エクセル)
-
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
エクセルで特定の文字が入ってる列を削除方法
Excel(エクセル)
-
-
4
VBAで文字列を数値に変換したい
Excel(エクセル)
-
5
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
6
エクセル・条件付で行を削除する方法
Excel(エクセル)
-
7
指定した項目の列削除
Visual Basic(VBA)
-
8
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
エクセル 同じ値を探して隣の...
-
50人を数回、グループ分けする...
-
エクセルで文字が混じった数字...
-
EXCELで 一桁の数値を二桁に
-
VBAで文字列を数値に変換したい
-
2つのエクセルのデータを同じよ...
-
エクセルの項目軸を左寄せにしたい
-
Excelで半角の文字を含むセルを...
-
エクセルで、列の空欄に隣の列...
-
オートフィルターをかけ、#N/A...
-
【VBA】特定列に文字が入ってい...
-
エクセルの表から正の数、負の...
-
「B列が日曜の場合」C列に/...
-
SUMIFS関数で絶対値で合...
-
A列がない・・・A列が非表示に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 文字数 多い順 並...
-
VBAで文字列を数値に変換したい
-
エクセル(勝手に太字になる)
-
エクセルで文字が混じった数字...
-
「B列が日曜の場合」C列に/...
-
エクセルの表から正の数、負の...
-
Excelで半角の文字を含むセルを...
-
エクセル 同じ値を探して隣の...
-
Excel、市から登録している住所...
-
エクセルの項目軸を左寄せにしたい
-
EXCELで 一桁の数値を二桁に
-
VBA 連続行データを5行ずつ隣の...
-
エクセル 時間帯の重複の有無
-
エクセルで、列の空欄に隣の列...
-
オートフィルターをかけ、#N/A...
-
A列がない・・・A列が非表示に...
おすすめ情報