|
こんにちは。かみちゃん です。
>ただA1やB1がそれぞれ項目1、項目2の場合
>C1にもD1にも「*」が入ります
>また2行以降にもCとD列に「*」マークが並びますが
>Cの2行目から下に一列だけ「*」マークを入れることは
>出来ないでしょうか。
私が提示したコードは、SpecialCells(xlCellTypeVisible)を使った一例にしかすぎません。
オートフィルタを実行するシートの内容なども書かれていませんでしたので、
YN62さんの疑問は、当然起こり得ます。
そこで、以下のようにすれば、対応できるかと思います。
Sub Macro1()
With Range("A1").CurrentRegion
.AutoFilter Field:=1, Criteria1:="2"
'可視セルを選択する。
.SpecialCells(xlCellTypeVisible).Select
.SpecialCells(xlCellTypeVisible).Offset(, .Columns.Count).Value = "*"
Range(Columns(.Columns.Count + 2), Columns(.Columns.Count * 2)).Delete
Cells(1, .Columns.Count + 1).ClearContents
End With
End Sub
もう少し考えれば、スマートな方法があるかと思いますが、とりあえず、YN62さん
の要件にしたがって、動作確認はできているので、提示させていただきます。
|
|