「統計学関連なんでもあり」の過去ログ---024

★ 数値の入力方法 ★

　33　数値の入力方法　　ggi　　2003/02/28 (金) 18:21
　　34　Re: 数値の入力方法　　青木繁伸　　2003/02/28 (金) 18:33
　　　35　Re: 数値の入力方法　　青木繁伸　　2003/02/28 (金) 19:04

33.　数値の入力方法　　ggi　　2003/02/28 (金) 18:21

　エクセルに大量のデータ（数値）を入力したのですが，後になってミスに気づき，全ての数値に1をプラスしたいと考えています。このような場合，一括にできるよい方法はあるでしょうか。
　統計に関する質問ではないのですが，お答えいただければと思います。

　　　　　[このページのトップへ]

34.　Re: 数値の入力方法　　青木繁伸　　2003/02/28 (金) 18:33

> 　エクセルに大量のデータ（数値）を入力したのですが，後になってミスに気づき，全ての数値に1をプラスしたいと考えています。このような場合，一括にできるよい方法はあるでしょうか。

良い方法というのは，そのデータがどれくらいであるかにも関係します。
また，人為的ミスの影響を受けやすいかどうかというのにも関係します。

1を加えなくてはならないデータは何個くらいありますか。
一つの列に入っているのですか，複数の列に入っているのですか。

良い方法というのが，Excel を使わないものである場合どうしますか，どうできますか。

　　　　　[このページのトップへ]

35.　Re: 数値の入力方法　　青木繁伸　　2003/02/28 (金) 19:04

あまりお勧めではないですが，以下のような VBA プログラムを使うのも一法かと。

セルの値を直接書き換えますので，大本のファイルのバックアップをとっておいて下さい。
デバッグは不完全かもしれないので，自己責任で，よく確認してから使って下さい。

Sub add1() Dim data As Range Set data = Application.InputBox(prompt:="データ範囲を指定:", Title:="データ範囲", Type:=8) n = data.Rows.Count m = data.Columns.Count For i = 1 To n For j = 1 To m If IsNumeric(data(i, j)) Then data(i, j) = data(i, j) + 1 End If Next j Next i End Sub

　　　　　[このページのトップへ]