選択したセルの列と行にたいしてIFで印を付けていきたいです 引数を選択したセルにしたいのですが下の記述では""の部分に変数を入れてもエラーが出ます 正確な記述方法をご教授いただけると助かります。 また、セルの位置と値の扱い方がいまいちわかってないです。 ご説明をいただけると嬉しいです。 Sub 重複確認() ' 変数宣言 Dim x As Long Dim y As Long x = ActiveCell.Row y = ActiveCell.Column With Range("", Range("" & Rows.count).End(xlUp)) .Offset(, 1).Formula = "=IF(COUNTIF(" & .Address & ",A1)>1,""●"","""")" .Offset(, 1).Value = .Offset(, 1).Value End With End Sub
↧