|
▼ももたん さん:
>全体をいっきにAUtofillしようにも、1つ1つのセルが割り算の数式が違うのです。
>だからVBAか何かで方法はあるかと思うのですが、どなたかおわかりになる方はいないでしょうか??
VBAとはいえ万能ではありません。
その数式に法則性があれば可能かもしれませんが、
いまの情報だけではわかりません。
考え方を変えて
今の数式を"=IF(ISERROR(・・"に書き直すマクロでどうでしょ?
現在の数式は正しいと想定して
数式のある範囲を選択した状態で
↓のマクロを実行してみてください。
念の為、今の状態をバックアップしておくことをお勧めします。
Sub Test()
Dim R As Range
Dim Siki As String
For Each R In Selection
If Left(R.Formula, 12) <> "=IF(ISERROR(" And _
Left(R.Formula, 1) = "=" Then
Siki = Mid(R.Formula, 2)
R.Formula = "=IF(ISERROR(" & Siki & "),""×""," & Siki & ")"
End If
Next R
End Sub
|
|