最新閲覧日:

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

このQ&Aに関連する最新のQ&A

A 回答 (4件)

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


数値入力したセルを『全て』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
    • good
    • 1
この回答へのお礼

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

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

ROUND関数が簡単かと・・


セルB1に「10,887」の元データが入力されている場合
セルC1に「=ROUND(B1,-2)/100」と記述すればOKです。
「=ROUND(B1,-2)」で百の位で丸めたあと「/100」で余計な数字を除きます。
    • good
    • 2
この回答へのお礼

ROUND関数って使ったことなかったです。
試してみます。ありがとうございます!

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

こんにちは!



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

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

試してみて下さい!
    • good
    • 0
この回答へのお礼

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

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

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


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

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

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

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報

カテゴリ