|
こんにちは。
A列とB列にフィルターをかけます。
まずA列の空白セルのみ抽出して、直上のセルの内容を入れます。
次にA列が可視セルになった状態でB列の空白セルのみ抽出して、直上のセルの内容を入れたいのです。
しかし下記(あ)のところで、該当セルが見当たらないというエラーが出てしまいます。
どこが悪いのでしょうか。どうかご教示ください。
Dim rag As Range, FRw As Long
Range("A8:A908").AutoFilter Field:=1, Criteria1:="="
Set rag = Range("A8:A908").SpecialCells(xlCellTypeVisible)
FRw = rag.Cells(1).Row
rag.Formula = "=A" & FRw - 1
Range("A8:A908").SpecialCells(xlCellTypeVisible).Select
Selection.Font.ColorIndex = 15
Set rag = Nothing
Range("B8:B908").AutoFilter Field:=1, Criteria1:="="
Set rag = Range("B8:B908").SpecialCells(xlCellTypeVisible) (あ)
FRw = rag.Cells(1).Row
rag.Formula = "=B" & FRw - 1
Range("B8:B908").SpecialCells(xlCellTypeVisible).Select
Selection.Font.ColorIndex = 15
ActiveSheet.AutoFilterMode = False
Set rag = Nothing
|
|