|
▼コーヒー牛乳 さん:
>ここの意味は りんご、みかん、のときは何も処理しないという意味にとってよろしいのでしょうか。
はい、そうですね。
ちょっとかっこわるいというか無理矢理な記述かもですね。
以下のほうがわかりやすいでしょうか?
Sub Sample2()
Dim maxCol As Long
Dim j As Long
'最終列番号の取得
maxCol = Range("A1").CurrentRegion.Columns.Count
' または
' maxCol = Cells(1, Columns.Count).End(xlToLeft).Column
' または
' maxCol = Range("A1").End(xlToRight).Column
For j = maxCol To 1 Step -1
Select Case True
Case Cells(1, j).Value <> "りんご" And Cells(1, j).Value <> "みかん"
Columns(j).Delete
End Select
Next
End Sub
Sub Sample3()
Dim maxCol As Long
Dim j As Long
'最終列番号の取得
maxCol = Range("A1").CurrentRegion.Columns.Count
' または
' maxCol = Cells(1, Columns.Count).End(xlToLeft).Column
' または
' maxCol = Range("A1").End(xlToRight).Column
For j = maxCol To 1 Step -1
If Cells(1, j).Value <> "りんご" And Cells(1, j).Value <> "みかん" Then Columns(j).Delete
Next
End Sub
|
|