エクセルexcelで桁を減らして表示したい

エクセルのデータとして、すでに「4,000」とか「10,887」等の正数の数値が入力されているセルの内容を、十の位までは入れないで、「40」や「108 (or 四捨五入で109)」等に置き換えたい場合、いちばん簡単なやり方はなんでしょうか？

No.1 回答者： mamorukatou 回答日時： 2001/11/14 18:15

単純に元の数字を100で割るというのはどうでしょう？

元の数字が入っている列は、列幅0にしておけば表示も印刷もされません。

この回答へのお礼

おお、目からウロコです。なんだか難しく考えすぎていました。
ありがとうございます。

お礼日時：2001/11/16 10:40

No.2 回答者： comv 回答日時： 2001/11/14 18:16

こんにちは！

表示だけでなく置き換えちゃってよろしいのであれば

・空いてるセルに１００と入力　コピー
・置き換えたいセル範囲を選択　編集　形式を選択して貼り付け
　数式　除算
－－－－－－－－－－－－－－－
◆切捨てでよろしいのであれば
除算した後　選択状態のままで
・編集　置換
　　検索文字列　.*
　　置換文字列　空欄
－－－－－－－－－－－－－－－－－－
◆四捨五入であれば
・選択されたままの状態で　書式設定　表示形式　数値
　桁数０　ＯＫ
・ツール　オプション　計算　「表示桁数で計算」をチェックＯＫ
（処理後は「表示桁数で計算」のチェックを外して下さい）
－－－－－－－－－－－－－－－－－－
　でＯＫです。

試してみて下さい！

この回答へのお礼

タイプ別にくわしく説明していただき、ありがとうございます！

お礼日時：2001/11/16 10:42

No.3 ベストアンサー 回答者： Qtaro35 回答日時： 2001/11/14 19:20

ＲＯＵＮＤ関数が簡単かと・・

セルＢ１に「10,887」の元データが入力されている場合
セルＣ１に「=ROUND(B1,-2)/100」と記述すればＯＫです。
「=ROUND(B1,-2)」で百の位で丸めたあと「/100」で余計な数字を除きます。

この回答へのお礼

ＲＯＵＮＤ関数って使ったことなかったです。
試してみます。ありがとうございます！

お礼日時：2001/11/16 10:43

No.4 回答者： nishi6 回答日時： 2001/11/14 19:28

置き換えたいセルがどう配置されているか分からないので、私ならこうします・・・

数値入力したセルを『全て』100の位に四捨五入します。ご参考に。

標準モジュールに貼り付けます。

Sub TestRound2()
　　Dim rg As Range
　　ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1).Select

　　For Each rg In Selection
　　　　rg = Application.Round(rg / 100, 0)
　　Next
End Sub

この回答へのお礼

詳細な説明、ありがとうございます！
エクセルも奥が深いですね～。

お礼日時：2001/11/16 10:44