エクセルで１より大きい数を

質問

エクセルで１より大きい数をすべて１にしたいのですが操作方法教えてください。

回答No.4

ubku · ベストアンサー

No.3です

提示したマクロでは範囲内の数式も１以上なら「1」になるので
数式を残したい場合はIf文を以下の文に差し替えてください。

If Left(cell.Formula, 1) <> "=" And IsNumeric(cell.Value) And cell.Value > 1 Then

お礼

アドバイス有り難うございました。
種々試みましたが結果的にCOUNT関数を使うことにしました。
書式は下記のとおりで対角線指定でもＯＫでした。
＝COUNT（始点セル:終点セル）

回答No.3

ubku

マクロの出番ですね

'選択した範囲で１より大きい数値を１にします
Sub MyMacro()
For Each cell In Selection
If IsNumeric(cell.Value) And cell.Value > 1 Then
cell.Value = 1
End If
Next
End Sub

マクロの実行後は「元に戻す」ことができませんのでご注意ください。

回答No.2

keithin

どのように「１にしたい」のか不明ですが，たとえば

全部のセルを選ぶ
セルの表示形式でユーザー定義を選び
[>1]"1";G/標準
と設定する

と，１になります。

回答No.1

weavaest

関数を埋め込むとかマクロを作るのではなく、操作方法が知りたいってことですか。
メニューから「置換」を選んで、「置換する文字列」を1以上にして、「置換後の文字列」を1にして実行すればできると思います。
「置換する文字列」の1以上の設定は、手元にExcelがないので詳細は何とも．．．でも、ちょっと調べればできると思いますよ。