ไปยังเนื้อหาหลัก

วิธีเพิ่มสตริงข้อความลงในเซลล์หลายเซลล์ใน Excel

หากเราจำเป็นต้องเพิ่มข้อความหรือสตริงของข้อความในหลายเซลล์การคัดลอกข้อความนี้และวางลงในเซลล์ทีละเซลล์จะต้องยุ่งยากและใช้เวลานาน วิธีการต่อไปนี้สามารถช่วยให้เราเพิ่มข้อความเฉพาะในหลายเซลล์ได้อย่างสะดวกและรวดเร็ว

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

การใช้ VBA สามารถทำให้งานของเราง่ายขึ้นและเพิ่มข้อความเฉพาะในหลายเซลล์โดยไม่ต้องคัดลอกและวาง

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

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

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

ย่อย Add2Formula ()
'เพิ่มข้อความ

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

ย่อยสิ้นสุด

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

หมายเหตุ: มาโครนี้สามารถเพิ่มได้เฉพาะไฟล์ ข้อความ - ที่ด้านหน้าของแต่ละข้อความในเซลล์ หากคุณต้องการเพิ่มข้อความหรือสตริงอื่น ๆ โปรดแทนที่ไฟล์ ข้อความ - ด้วยข้อความเฉพาะที่คุณต้องการเพิ่ม

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

สำหรับผู้ใช้ Microsoft Excel ทั่วไปเราอาจไม่คุ้นเคยกับ VBA อีกวิธีหนึ่งคือ Kutools สำหรับ Excelเครื่องมือเพิ่มข้อความสามารถช่วยให้เราเพิ่มข้อความหรือสตริงที่ต้องการในหลายเซลล์ได้อย่างรวดเร็วและง่ายดาย

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

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

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

ขั้นตอนที่ 3: ในไฟล์ เพิ่มข้อความ กล่องโต้ตอบป้อนข้อความและอักขระเฉพาะในส่วนข้อความ

ขั้นตอนที่ 4: ตรวจสอบตำแหน่งที่คุณจะเพิ่มข้อความเฉพาะในไฟล์ ตำแหน่ง มาตรา. (หมายเหตุ: หากคุณต้องการแทรกข้อความในตำแหน่งที่ระบุโปรดตรวจสอบ ระบุ และระบุตำแหน่ง) ดูภาพหน้าจอ:

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

พื้นที่ เพิ่มข้อความ เครื่องมือของ Kutools for Excel ช่วยให้เราสามารถเพิ่มข้อความและตัวอักษรเฉพาะก่อนหรือหลังข้อความเซลล์เดิมได้ ยิ่งไปกว่านั้นเราสามารถเพิ่มข้อความเฉพาะระหว่างข้อความในเซลล์ดั้งเดิมได้ ไม่ว่าคุณจะตั้งค่าใดคุณสามารถดูตัวอย่างการเปลี่ยนแปลงของเซลล์ได้ในส่วนแสดงตัวอย่าง

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations