こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

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

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

投稿日時 - 2016-02-20 15:56:00

QNo.9131120

困ってます

質問者が選んだベストアンサー

No.3です

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

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

投稿日時 - 2016-02-20 21:59:39

お礼

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

投稿日時 - 2016-02-24 20:06:11

ANo.4

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(4)

ANo.3

マクロの出番ですね

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

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

投稿日時 - 2016-02-20 21:28:26

ANo.2

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

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

と,1になります。

投稿日時 - 2016-02-20 19:32:04

ANo.1

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

投稿日時 - 2016-02-20 17:34:59

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-