Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีเพิ่มค่าให้กับเซลล์หลายเซลล์ใน Excel

หากคุณต้องการเพิ่มค่าให้กับเซลล์หลายเซลล์ใน Excel วิธีการต่อไปนี้จะช่วยให้คุณประมวลผลได้ง่ายและรวดเร็ว:

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา เพิ่มมูลค่าให้กับหลายเซลล์ด้วย VBA


การใช้มาโครช่วยลดการประมวลผลซ้ำ ๆ จำนวนมากและทำให้งานของเราง่ายขึ้นและเร็วขึ้น มาโครต่อไปนี้ก็เช่นกัน

ขั้นตอนที่ 1: เลือกเซลล์ที่คุณจะเพิ่มค่า

ขั้นตอนที่ 2: กดปุ่มค้างไว้ ALT + F11 คีย์และจะเปิดหน้าต่าง Microsoft Visual Basic for Applications

ขั้นตอนที่ 3: คลิก สิ่งที่ใส่เข้าไป > โมดูลและวาง VBA ต่อไปนี้ในหน้าต่างโมดูล

ย่อย Add2Formula ()
'เพิ่ม 300

สำหรับแต่ละ c ในการเลือก
c. เปิดใช้งาน
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
ถัดไปค

ย่อยสิ้นสุด

ขั้นตอนที่ 4: กดปุ่ม F5 กุญแจสำคัญในการเรียกใช้แมโครนี้

หมายเหตุ:

1. มาโครนี้ใช้ได้เฉพาะกับเซลล์ที่ไม่มีสูตรอยู่ภายใน

2. มาโครนี้จะเพิ่ม 300 ไปยังเซลล์ที่เลือกทั้งหมด หากคุณต้องการเพิ่มค่าอื่น ๆ โปรดแทนที่ไฟล์ 300 ด้วยค่าอื่น ๆ


ลูกศรสีฟ้าฟองขวา เพิ่มมูลค่าให้กับหลายเซลล์ด้วย Kutools for Excel

Kutools สำหรับ Excel ให้วิธีอื่นที่ใช้งานง่ายแก่เราและ Operation Tools สามารถช่วยให้เราเพิ่มมูลค่าให้กับเซลล์หลายเซลล์ได้อย่างง่ายดาย

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 80 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน รับไปเดี๋ยวนี้เลย.

ขั้นตอนที่ 1: เลือกเซลล์ที่คุณจะเพิ่มค่าเดียวกัน

ขั้นตอนที่ 2: คลิกปุ่ม Kutools > การดำเนินการ > เครื่องมือการทำงาน .... ดูภาพหน้าจอ:

ขั้นตอนที่ 3: เลือกปุ่ม นอกจากนี้ จากส่วนการดำเนินการและป้อนค่าที่คุณจะเพิ่มลงในเซลล์ที่เลือก ดูภาพหน้าจอ:

ขั้นตอนที่ 4: ตรวจสอบไฟล์ สร้างสูตร ตัวเลือก

ขั้นตอนที่ 5: คลิก OK.

ในเครื่องมือการทำงาน
เลือกเพิ่มเติมป้อน 300 แล้วคลิกตกลง.

Kutools สำหรับ Excel's เครื่องมือการทำงาน รองรับการดำเนินการทางคณิตศาสตร์ทุกชนิดกับเซลล์ที่เลือกทั้งหมดด้วยกัน:

  • การเพิ่ม: บวกตัวถูกดำเนินการที่ระบุ
  • การลบ: ลบตัวถูกดำเนินการที่ระบุ
  • การคูณ: ค่าของเซลล์แต่ละเซลล์คูณด้วยตัวถูกดำเนินการ
  • หาร: ค่าแต่ละเซลล์หารด้วยตัวถูกดำเนินการ
  • Exponentiation: ค่าของเซลล์แต่ละค่าให้พลังงานแก่ตัวถูกดำเนินการ
  • การปัดเศษ: ปัดเศษแต่ละค่าของเซลล์เป็นตัวเลขทศนิยม (ตัวถูกดำเนินการที่ระบุ)
  • ฟังก์ชัน: ใช้ฟังก์ชันกับแต่ละค่าของเซลล์
  • กำหนดเอง: สร้างนิพจน์ที่เหมือนสูตรและใช้กับแต่ละค่าของเซลล์

บทความที่เกี่ยวข้อง


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • Super Formula Bar (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, 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