0

VBA で名前付き範囲を使用すると、「そのコマンドは複数選択では使用できません」というエラーが表示されます。

VBA を使用して式を導出しても問題ありませんが、値を貼り付けたいだけです。

Set rngCopy = rngCopy.Offset(0, 10).SpecialCells(xlCellTypeVisible)

rngCopy.Activate

rngCopy.Value = _
    "=IF(RC[-10]="""","""",IF(WEEKDAY(RC[-10])=2,RC[-10]-3,IF(WEEKDAY(RC[-10])<>2,RC[-10]-1)))"

rngCopy.Copy
rngCopy.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
4

1 に答える 1