เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการเพิ่มค่าลงในเซลล์หลายเซลล์ใน Excel?

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

เครื่องมือเพิ่มประสิทธิภาพที่แนะนำสำหรับ Excel / Office

แท็บ Office: นำการแก้ไขแท็บไปใช้ Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Safariการทดลองใช้ฟรีไม่ จำกัด 30 วัน

Kutools สำหรับ Excel: คุณลักษณะที่มีประสิทธิภาพของ 300 ช่วยให้ Excel ใช้งานได้ง่ายและเพิ่มประสิทธิภาพการทำงานได้ทันทีการทดลองใช้ฟรีไม่ จำกัด 60 วัน


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


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

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

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

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

Sub Add2Formula ()
'เพิ่ม 300

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

ย่อยสิ้นสุด

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

หมายเหตุ:

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

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


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

Kutools สำหรับ Excel ช่วยให้เราสามารถเพิ่มมูลค่าให้กับเซลล์หลายเซลล์ได้อย่างง่ายดาย

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

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

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

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

ขั้นตอนที่ 4: ทำเครื่องหมายที่ สร้างสูตร ตัวเลือก

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

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

Kutools สำหรับ Excel ของ เครื่องมือการทำงาน สนับสนุนการดำเนินการทางคณิตศาสตร์ทุกประเภทในเซลล์ที่เลือกทั้งหมด:

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

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



เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ

แท็บ Office

gold star1 นำแท็บที่มีประโยชน์ไปยัง Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Internet Explorer ใหม่

Kutools สำหรับ Excel

gold star1น่าทึ่ง! เพิ่มประสิทธิภาพการทำงานของคุณในอีก 5 นาที ไม่จำเป็นต้องมีทักษะพิเศษประหยัดสองชั่วโมงทุกวัน!

gold star1300 คุณสมบัติใหม่สำหรับ Excel, Make Excel ง่ายมากและมีประสิทธิภาพ:

  • ผสานเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล
  • รวมและรวมแผ่นงานหลายแผ่นและสมุดงาน
  • เปรียบเทียบช่วง, คัดลอกหลายช่วง, แปลงข้อความเป็นวันที่, หน่วยและการแปลงสกุลเงิน
  • นับตามสี, เพจย่อยย่อย, การเรียงลำดับขั้นสูงและตัวกรอง Super,
  • เพิ่มเติมเลือก / แทรก / ลบ / ข้อความ / รูปแบบ / ลิงก์ / ความคิดเห็น / เวิร์คบุ๊ค / แผ่นงานเครื่องมือ ...

ภาพหน้าจอของ Kutools for Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 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 · 2 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 · 3 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 · 3 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 4 years ago
    any reply? will this site answer our enquiry?