Excel VBA質問箱 IV

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

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


35674 / 76732 ←次へ | 前へ→

【46254】Re:特定列の削除について
発言  かみちゃん  - 07/1/28(日) 12:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>本当は削除の指定列
>Range("F:F,H:H").Selectのではなく、列の名称(科目II、科目IV)を使いたい

以下のような感じになるかと思います。
なお、削除対象の判断となる列の名称は、1行目に入力されているものとします。
また、列の削除は、右のほうから削除、ちなみに行の削除は下のほうから削除して
いくのが定石となっています。

Sub Del_Column0127()
 '削除0127
 Dim intMaxColumn As Integer
 Dim intCol As Integer
 
 intMaxColumn = Cells(1, Columns.Count).End(xlToLeft).Column
 For intCol = intMaxColumn To 1 Step -1
  With Cells(1, intCol)
   If .Value = "科目II" Or .Value = "科目IV" Then
    .EntireColumn.Delete
   End If
  End With
 Next
End Sub

0 hits

【46253】特定列の削除について Isogai 07/1/28(日) 11:32 質問
【46254】Re:特定列の削除について かみちゃん 07/1/28(日) 12:03 発言
【46255】Re:特定列の削除について りん 07/1/28(日) 12:04 回答
【46258】Re:特定列の削除について Isogai 07/1/28(日) 19:24 質問
【46259】Re:特定列の削除について かみちゃん 07/1/28(日) 20:29 発言
【46261】Re:特定列の削除について Isogai 07/1/28(日) 20:47 質問
【46667】Re:特定列の削除について Isogai 07/2/11(日) 16:18 お礼
【46262】Re:特定列の削除について りん 07/1/28(日) 22:03 回答

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