[過去ﾛｸﾞ] Excel総合相談所 140 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

602(3): 2020/08/29(土)10:54 AAS
VBAで質問です。

何十列もある表で不要な列を大量に削除したいと思っています。

Range("A1,N1:U1.....").entirecolumn.deleteといった感じで手作業、つまり目で列を確認してコードを書くしかないのでしょうか？？

分かる方お願いします。

---

603: 2020/08/29(土)10:59 AAS
>>602
列が不要かどうかを機械でも判断できるような条件なら自動化できる

---

609: 牧野 ◆Vbs7gX72NY 2020/08/29(土)18:57 AAS
>>602
1行目に行挿入
不要な列に「１」を入力
イカコードを走らせる
最後に一行目を削除
とか

Sub Macro1()
最終列 = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i) = 1 Then
省4

---

611: 2020/08/30(日)00:58 AAS
>>602
selection.entirecolumn.delete

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.030s