Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Excelで複数のセルに値を追加するにはどうすればよいですか?

Excelの複数のセルに値を追加する場合は、次の方法で簡単かつ迅速に処理できます。

OfficeタブOfficeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
  • 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度など。 フィルタ 太字、数式、コメント...
  • 300以上の強力な機能。 Office2007-2019および365で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

矢印青い右バブル VBAで複数のセルに価値を追加


マクロを使用すると、多くの繰り返し処理が容易になり、作業がより簡単かつ迅速になります。 次のマクロもそうです。

ステップ1:値を追加するセルを選択します。

ステップ2: 頭の中 + F11 キーを押すと、Microsoft Visual Basic forApplicationsウィンドウが開きます。

ステップ3:クリック インセット > モジュール、モジュールウィンドウに次のVBAを貼り付けます。

サブAdd2Formula()
'300を追加

セレクションの各cについて
c。アクティブ化
ActiveCell.FormulaR1C1 = "=" = "&ActiveCell.Formula&" +300 "
次のc

End Subの

ステップ4: F5 このマクロを実行するためのキー。

ノート:

1.このマクロは、数式が含まれていないセルにのみ有効です。

2.このマクロは追加します 300 選択したすべてのセルに。 他の価値を追加したい場合は、 300 他の値で。


矢印青い右バブル Kutools forExcelで複数のセルに価値を追加する

Kutools for Excel 代替の使いやすい方法を提供し、その操作ツールは複数のセルに簡単に価値を追加するのに役立ちます。

Kutools for Excel 80以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手してください。

ステップ1:同じ値を追加するセルを選択します。

ステップ2: クツール > 操作 > 操作ツール…。 スクリーンショットを参照してください:

ステップ3: 追加 [操作]セクションから、選択したセルに追加する値を入力します。 スクリーンショットを参照してください:

ステップ4: 数式を作成する オプションを選択します。

ステップ5:クリック OK.

操作ツールでは、
[追加]を選択し、300と入力して、[OK]をクリックします.

Excel用のKutools 操作ツール 選択したすべてのセルに対するあらゆる種類の数学演算を一緒にサポートします。

  • 追加:プラス指定されたオペランド。
  • 減算:指定されたオペランドを減算します。
  • 乗算:セルの各値にオペランドを掛けたもの。
  • 除算:セルの各値をオペランドで除算します。
  • べき乗:セルの各値はオペランドに電力を供給します。
  • 丸め:セルの各値をXNUMX進数(指定されたオペランド)に丸めます。
  • 関数:セルの各値に関数を適用します。
  • カスタム:数式のような式を作成し、セルの各値に適用します。

関連記事


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe Riter · 3 years ago
    If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


    Sub Add2Formula()
    ' Add a number
    Dim formulae As String
    Dim a_number As Double

    a_number = InputBox("what number to increment")

    For Each cell In Selection
    cell.Activate
    formulae = ActiveCell.Formula
    ' gets rid of formula non-essentials that could cause errors
    formulae = Replace(formulae, "'", "")
    formulae = Replace(formulae, "=", "")

    If formulae = "" Then
    ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
    Else
    ActiveCell.Formula = "= " & formulae & "+" & a_number
    End If
    Next cell

    End Sub


    This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Hum3 · 4 years ago
    How can I get this VBA formula to skip blank and text cells? Thanks
  • To post as a guest, your comment is unpublished.
    sharfudheen · 5 years ago
    sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
  • To post as a guest, your comment is unpublished.
    Fazlan · 5 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 6 years ago
    any reply? will this site answer our enquiry?
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Dear Expert
    Have a question here. How to increase age automatically for each year?

    Thanks
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Add Value to multiple cells with VBA's techque is very useful

    Thanks
  • To post as a guest, your comment is unpublished.
    jorawar singh · 7 years ago
    sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem