メインコンテンツへスキップ

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

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


矢印青い右バブル 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進数(指定されたオペランド)に丸めます。
  • 関数:セルの各値に関数を適用します。
  • カスタム:数式のような式を作成し、セルの各値に適用します。

関連記事

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations