|
皆様お世話になります。
以前に【54114】Re:列の削除について
にて
Dim intCol As Integer
Dim FR As Range
Dim rngDel As Range
For intCol = 1 To Columns.Count
On Error Resume Next
Set FR = Columns(intCol).Cells.Find("*", , xlValues, xlPart)
On Error GoTo 0
If FR Is Nothing Then
If rngDel Is Nothing Then
Set rngDel = Columns(intCol)
Else
Set rngDel = Union(rngDel, Columns(intCol))
End If
End If
Set FR = Nothing
Next
If Not rngDel Is Nothing Then
rngDel.EntireColumn.Delete Shift:=xlToLeft
Set rngDel = Nothing
End If
の意味もわからず自分のしたいことができたのですが
Set FR = Columns(intCol).Cells.Find("*", , xlValues, xlPart)
の部分で"*"のところで2つ以上の文字をいれて実行したいのですが
どうすればよいのでしょうか。
例えば "山" "谷" "川"の文字のある列を残して他の列を削除したいのですが
"*" を "山,谷,川" として実行してみたら全部削除されてしましました。
|
|