【最大10000ポイント】当たる!!質問投稿キャンペーン!

セルにある数字が

10
28
33
43
60
74
・・・・

と数が大量に不連続の数があるとして、この数全てに各22を足したいときなどはどうすればいいのでしょうか?

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

A 回答 (3件)

VBAでやるならFor Eachを使わなくとも


Sub Macro1()
Range("E1") = 22
Range("E1").Select
Selection.Copy
d = Range("a65536").End(xlUp).Row
Range("A2:A" & d).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
End Sub
でできます。
ーー
Range("E1") = 22
d = Range("a65536").End(xlUp).Row
の部分以外は、マクロの記録を採れば、判ります。
ーー
しかし普通は#1のご回答の方法を使います。
これが思い出せないということは、エクセルの(便利技の)全般的な勉強をしたほうが良い。
    • good
    • 1

Sub xxx()


ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
For Each sh In Selection
If IsNumeric(sh.Value) Then sh.Value = sh.Value + 1
Next
End Sub

数字だけ1を足します。
    • good
    • 3

◆手順


1)どこかのセルに足したい数字(この場合22)を入力します
2)そのセルをコピーして、足される範囲を指定して
3)「形式を選択して貼り付け」を選び「演算」の「加算」をチェックして、OK
    • good
    • 7

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

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

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

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

このQ&Aと関連する良く見られている質問

Qエクセルで、選択範囲の数値全部に1を足す

エクセルなのですが、選択範囲の数値全部に1を足すにはどうしたらいいんでしたっけ?
うっかり失念してしまいました。宜しくお願いします!

Aベストアンサー

どこか空いているセルに1と入力し、そのセルをコピーします。
1を足したい範囲を選択し、「編集」>「形式を選択して貼り付け」で、演算の「加算」をチェックしてOKを押すとできます。

Qエクセルの複数セルに同時に同じ数値をプラスする法。

エクセルで、例えばA1からA8までにそれぞれ異なる数値がはいっています。このとき、5ならば6に、7ならば8にというように全て同時に数値を1だけあげる方法はあるのでしょうか。また、A3,A5,A6のみ同時に数値を1プラスできるのでしょうか。さらに、A3,B2,C7など任意のセルの数値を同時に1プラスする方法があればご教授下さい。過去ログを検索したのですが、検索法が下手らしくヒットするものがありませんでした。初心者です、よろしくお願いします。

Aベストアンサー

こんばんは!

・空いてるセルに 1 と入力 コピー
・1プラスしたいセル範囲を選択
 飛び飛びの場合は、[Ctrl]を押しながらクリック
・編集 形式を選択して貼り付け [値]と[加算]をチェック
 OK

で試してみて下さい!

こうの方法で必要な数値で加減乗除が可能です。
また元々が数式のセルに対して [数式]と[加算]を
チェックして貼り付けると 例えば 10をコピー
元の式 =A1+B1
↓ [数式]と[加算]
結果 =(A1+B1)+10

に変わります!

Qエクセルの足し算たくさん足すときの技は?

エクセルでたくさんのセルを足していくとき、A1+A2+A3+A4+A5…を延々足していかないといけないのでしょうか?ほかに簡単に足していく方法があったら教えてください。

Aベストアンサー

合計関数の「SUM」を使います。
例えばA1+A2+A3+A4+A5…+A10 なら=SUM(A1..A10) です。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/sum.htm

QExcelの入力済みセルに一括で、同じ文字を追加する方法

こんにちは、

300件程のメールアドレスをExcelで管理しているのですが、
例えばセルに「bondo1119」と記載していて、そのセルに「@goo.co.jp」という
ドメイン名を、bondo1119の後に一括でコピーしたいのですが、
何かよい方法はないでしょうか。

どなたかご存知の方がいらっしゃいましたら、アドバイスいただけないでしょうか。
よろしくお願いいたします。

Aベストアンサー

実体が無くて良いなら表示形式をユーザー定義で
@"@goo.co.jp"
とする。

実体が必要な場合は
=A1&"@goo.co.jp"
で別セルに設定後行方向にコピー、
列をコピーして元の列に形式を選択して貼り付けで値として貼り付ける。

Qエクセルで表示されている数字に入力数字を足す方法

ネットで勉強して、セルとセルの数値を足すことは出来る様になったのですが、同じセルに次に手入力された数値を足す方法というのはあるのでしょうか?

具体的には、現在、仕事で注文した材料を1週間ごとに列を変えて事前に入力してある単価と合計個数をかけて合計金額を出しています。
しかし、1週間のうち何度か注文が分かれるので、頭の中で足し算をして、入力している状態です。

伝票の個数を単純に入力すれば、足してくれるようにしたいのですが、何か方法は有りますか?

環境はMacOSX10.4.11
Excel2008 ver.12.2.0 です。
初心者で申し訳ございませんが、皆さん教えて下さい。

Aベストアンサー

個数入力欄を別途設けておき(例えば Sheet1 の A列)、そこに個数を入力する。
伝票の個数の部分には
=SUM(Sheet1!A:A)
としておく。
こういう方法の方がいいのでは?
個数入力欄の方には日付も併記しておけば、何かの時の確認もできますし。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

QEXCEL:同じセルへどんどん足していく方法

ちょっと調べたらすぐわかるだろう!

¨¨¨と思ったら案外わからなかったので、教えてください。


まずやりたいことから説明します。

(1)【シート1】A1セルに数字を入力します。(例としてA1に数字の10が入っているとします。)
(2)【シート2】A2セルに数字を入力します。(例としてA2に数字の20が入っているとします。)

するとなんと・・・
(3)【シート2】A1セルに(1)+(2)の合計(30)が入っています!

さらに
(4)【シート3】A2セルに数字(30)を入力すると・・・

あらまぁ、
(5) (3)+(4)の合計が【シート3】のA1に数字の60が入っていたりします!


・・・・ていうことを【シート4】、【シート5】、【シート6】・・・とやっていきたいのです。


**:::ちなみに:::************

■VBAはもちろんわかりません。。
■(3)で【シート2】A1セルに=SUM(B1+Sheet1!A1)とかやればいいじゃんと思うかもしれませんがなんか違います。
■VBAで自動で出来るに越したことはないのですが、関数とかで毎回手動でも上手いこと出来れば問題ないです。(計算間違いすることがなければ何でもいいです)

*********************


しょうもない質問で申し訳ありません。
本気とかいてマジで調べればわかりそうな気もするんですが、
どうも人間として重要な「ヤル気」というものが欠如しているせいか、
普通に萎えました。


皆様お忙しい中、大変お手数をお掛け致しますが、
お力添えをどうかよろしくお願い申し上げます(-_-)

ちょっと調べたらすぐわかるだろう!

¨¨¨と思ったら案外わからなかったので、教えてください。


まずやりたいことから説明します。

(1)【シート1】A1セルに数字を入力します。(例としてA1に数字の10が入っているとします。)
(2)【シート2】A2セルに数字を入力します。(例としてA2に数字の20が入っているとします。)

するとなんと・・・
(3)【シート2】A1セルに(1)+(2)の合計(30)が入っています!

さらに
(4)【シート3】A2セルに数字(30)を入力すると・・・

あらまぁ、
(5) (3)+(4)の合計が【...続きを読む

Aベストアンサー

シート名を丁寧につけて関数だけでやる方法が一番ですが、やる気が無いのでしたら次の通りにします。

手順:
ブックを開く
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

private function sumleft(a1, b1)
 dim res1, res2
 application.volatile

 if typename(a1) = "Range" then
 res1 = a1.parent.previous.range(a1.address).value
 else
 res1 = a1
 end if

 if typename(b1) = "Range" then
 res2 = b1.value
 else
 res2 = b1
 end if
 sumleft = application.sum(res1, res2)
end function

ファイルメニューから終了してエクセルに戻る

計算の理屈から「左隣のシートが無い一番左のシート」は除いて、2枚目以降のシートのA1セルに
=sumleft(A1,A2)
と記入する
一つ下のA2に数字を記入すると、左隣のシートのA1セルと合算した結果が現れます。




#一応参考
左端からシート名がSheet1、Sheet2、Sheet3…のように順序良く並んでいるとします
ブックを必ず一回保存します
2枚目以降のA1セルに
=SUM(INDIRECT("Sheet"&(SUBSTITUTE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99),"Sheet","")-1)&"!A1"),A2)
と記入します。
左端のシート1のA1に数字を記入し、シート2以降のA2に数字を記入します

シート名を丁寧につけて関数だけでやる方法が一番ですが、やる気が無いのでしたら次の通りにします。

手順:
ブックを開く
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

private function sumleft(a1, b1)
 dim res1, res2
 application.volatile

 if typename(a1) = "Range" then
 res1 = a1.parent.previous.range(a1.address).value
 else
 res1 = a1
 end if

 if typename(b1) = "Range" then
 res2 = b1.value
 else
 r...続きを読む

Qエクセルで条件に一致したセルの隣のセルを取得したい

下のような「得点」という名前のシートがあります。
(「田中」のセルがA1です。)

 [ 田中 ][ 10 ][ 200 ]
 [ 山田 ][ 21 ][ 150 ]
 [ 佐藤 ][ 76 ][ 250 ]
 [ 鈴木 ][ 53 ][ 350 ]

別のシートのA1セルに、「佐藤」と入力すると、

 [ 佐藤 ]

「得点」シートから「佐藤」の列を見つけて、B1、C1に

 [ 佐藤 ][ 76 ][ 250 ]

のように表示させたいのですが、B1、C1にはどのような式を書けば良いのでしょうか。
「得点」シートでは氏名が重複する事はありません。
IF文を使うと思うのですが、いまいち良く分かりませんでした。

よろしくおねがい致します。

Aベストアンサー

こんにちは!
VLOOKUP関数で対応できます。
IF関数と併用すればエラー処理が可能です。

Excel2007以降のバージョンであれば
B1セルに
=IFERROR(VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0),"")
としてC1セルまでオートフィルでコピー!
そのまま下へコピーすると行が2行目以降でも対応できます。

Excel2003までの場合は
=IF($A1="","",VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0))

としてみてください、m(_ _)m

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
A列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。
これを簡単に抽出する方法はないでしょうか?
教えてください お願いいたします。

Aベストアンサー

企業名がセルB2からセルB300まで入力されていると仮定します。
セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい


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

人気Q&Aランキング