วิธีสร้างมาโครที่จะถ่ายโอน / แจกจ่ายข้อมูลจากเซลล์หนึ่งไปยังเซลล์ต่าง ๆ

ฉันอยากจะถามคือแมโครอาจเป็นที่อยู่ของระบบอัตโนมัตินี้

ฉันต้องการถ่ายโอน / กระจายข้อมูลจาก 1 เซลล์ไปยังเซลล์ต่างๆ

มันไม่จำเป็นต้องมีแม้แต่แมโคร:

• เลือกเซลล์ที่คุณต้องการแยก
• ในแท็บข้อมูลคลิก "ข้อความไปยังคอลัมน์"
• เลือก "คั่น" และ "ถัดไป"
• สำหรับตัวคั่นเลือก "อื่น ๆ " และพิมพ์ -
• "เสร็จสิ้น" และคุณทำเสร็จแล้ว

UDF แบบง่าย (มาโคร) นี้จะช่วยคุณในการแบ่งค่าเป็นคอลัมน์

Function SplitValues(a As String, b As String)
Dim Text() As String
Text = Split(b, a)
SplitValues = Text
End Function

มันทำงานอย่างไร:

1. คัดลอกและวางรหัส VBA นี้เป็นโมดูล

2. ฉันสมมติว่าคุณมีข้อมูลเพื่อเขียนสูตรนี้ในมือถือColumn BD2

   =SplitValues("-",B2)
   

3. เติมสูตรให้ถูกต้องจนกว่าจะมีความจำเป็น

4. กดF2& จบด้วยCtrl+Shift+Enterตอนนี้ Excel จะแปลงเป็นสูตร Array และเติมสูตรลง

   {=SplitValues("-",B2)}
   

หมายเหตุ: ตัวคั่น "-" สามารถแก้ไขได้หากจำเป็นคุณสามารถแทนที่ด้วยตัวอื่นได้เช่นกัน