บางครั้งเราอาจต้องปรับเปลี่ยนช่วงของเซลล์ใน Excel อย่างรวดเร็ว ตัวอย่างเช่นฉันมีช่วงของเซลล์ที่มีราคาของกลุ่มผลิตภัณฑ์และฉันต้องการหารราคาทั้งหมดด้วย 2 และต่อไปนี้เป็นคำถามว่าฉันจะแบ่งช่วงของเซลล์ด้วยตัวเลขอย่างรวดเร็วได้อย่างไร

แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยฟังก์ชัน Paste Special

แบ่งช่วงของเซลล์ด้วยตัวเลขอย่างรวดเร็วด้วย Kutools for Excel

แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยรหัส VBA

แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยฟังก์ชัน Paste Special

อัศจรรย์! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Edge, Firefox และ Safari!
ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

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

1. ใส่หมายเลขตัวหารเช่น 15 ลงในเซลล์ว่างแล้วคัดลอก

2. ไฮไลต์ช่วงที่คุณต้องการหารตัวเลขทั้งหมดด้วย 15 แล้วคลิกขวาเลือก วางแบบพิเศษ จากเมนู

3 ใน วาง Special กล่องโต้ตอบคลิก ทั้งหมด ตัวเลือกใน พาสต้า เลือก แบ่ง ตัวเลือกใน การดำเนินการ แล้วคลิกไฟล์ OK ปุ่ม

4. ลบหมายเลข 15 ที่คุณป้อนก่อนหน้านี้

ตอนนี้ช่วงของเซลล์ถูกหารด้วย 15 จำนวนมาก ดูภาพหน้าจอ:

แบ่งช่วงของเซลล์ด้วยตัวเลขอย่างรวดเร็วด้วย Kutools for Excel

บางทีวิธีการวางแบบพิเศษอาจค่อนข้างยากสำหรับคุณ มีวิธีที่ง่ายและรวดเร็วในการจัดการงานนี้หรือไม่? ใช่ การดำเนินการ คุณลักษณะของ Kutools สำหรับ Excel สามารถช่วยคุณแบ่งช่วงของเซลล์ตามตัวเลขได้ภายในไม่กี่วินาที!

1. เลือกช่วงที่มีตัวเลขที่คุณต้องการหารด้วยจำนวนหนึ่ง จากนั้นคลิก Kutools > More > การดำเนินการดูภาพหน้าจอ:

3 ใน เครื่องมือการทำงาน ใหเลือก การแบ่ง ใน การดำเนินการ ใส่หมายเลขตัวหารเช่น 15 ใน ตัวดำเนินการ กล่อง. และคุณสามารถดูผลลัพธ์จากไฟล์ ดูตัวอย่าง บานหน้าต่าง และสุดท้ายคลิก OK or ใช้ ปุ่ม. ดูภาพหน้าจอ:

แบ่งช่วงของเซลล์ด้วยตัวเลขด้วยรหัส VBA

ด้วยรหัส VBA คุณยังสามารถแบ่งเซลล์ช่วงด้วยตัวเลขโดยอัตโนมัติ

1. เลือกช่วงที่คุณต้องการให้หารด้วยตัวเลข

2 คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นป้อนรหัสต่อไปนี้ในไฟล์ โมดูล:

VBA: แบ่งช่วงของเซลล์ตามตัวเลข

Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
    Rng.Value = Rng.Value / xNum
Next
End Sub

3 จากนั้นคลิก  ปุ่มเพื่อเรียกใช้รหัส ในกล่องโต้ตอบที่โผล่ขึ้นมาโปรดเลือกช่วงที่มีตัวเลขที่คุณต้องการหารด้วยจำนวนหนึ่งแล้วคลิก OK ปุ่ม. ดูภาพหน้าจอ:

4. ในกล่องโต้ตอบที่สองที่โผล่ขึ้นมาให้ป้อนหมายเลขตัวหารจากนั้นคลิกปุ่มตกลง ดูภาพหน้าจอ:

ตอนนี้ตัวเลขทั้งหมดในช่วงที่เลือกจะหารด้วยหมายเลข 15

การสาธิต: แบ่งช่วงของเซลล์อย่างรวดเร็วด้วยตัวเลขด้วย Kutools for Excel

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