Excel VBA質問箱 IV

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

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


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

70692 / 76734

←次へ　｜　前へ→


	【10544】Re:いらない項目列を全て削除するには？

Asaki - 04/1/30(金) 20:24 -


	引用なし

	パスワード

こんばんは。

1行目に項目名がA列から入っているとして、その項目名と消したくない項目名が
一致しない列を削除します。

Sub test()

　　Dim rngFind　　 As Range
　　Dim rngLoop　　 As Range

　　For Each rngLoop In Range("A1", Cells(Columns.Count).End(xlToLeft))
　　　　Select Case rngLoop.Value
　　　　　　Case "col1", "col3", "col4", "col8"　　 '←とりあえず消したくない項目名を羅列
　　　　　　Case Else
　　　　　　　　If rngFind Is Nothing Then
　　　　　　　　　　Set rngFind = rngLoop
　　　　　　　　Else
　　　　　　　　　　Set rngFind = Union(rngFind, rngLoop)
　　　　　　　　End If
　　　　End Select
　　Next rngLoop

　　If Not rngFind Is Nothing Then
　　　　rngFind.EntireColumn.Delete Shift:=xlToLeft
　　　　Set rngFind = Nothing
　　End If

End Sub

1 hits

▼

【10538】いらない項目列を全て削除するには？ ギン 04/1/30(金) 19:38