ฉันจะคัดลอกตาราง Word ไปยัง Excel ได้อย่างไรโดยไม่ต้องแบ่งเซลล์ออกเป็นหลายแถว

ฉันมีข้อมูลในตาราง Word ที่มีตัวแบ่งบรรทัดและย่อหน้า เมื่อฉันคัดลอกข้อมูลลงใน Excel จะแยกแต่ละบรรทัดและย่อหน้าที่ฉันต้องการลงในหลายเซลล์ ฉันจะคัดลอกข้อมูลไปยัง Excel และหยุดพักได้อย่างไร

คุณจะต้องทำการเปลี่ยนอักขระเล็กน้อย เป็นการแก้ไขที่ง่ายมาก

ใน Word:

1. เลือกตารางทั้งหมดของคุณใน Word
2. เปิดกล่องโต้ตอบ "ค้นหาและแทนที่" (เช่นโดยพิมพ์Ctrl+ H)
3. ใน "สิ่งที่ค้นหา" ^lให้ป้อน สิ่งนี้จะเลือกตัวแบ่งบรรทัดทั้งหมด
   • ^pคุณสามารถเลือกแบ่งวรรคโดยการป้อน
4. ใน "แทนที่ด้วย" ^vให้ป้อน
   • นี่คือช็อตคัตสำหรับสัญลักษณ์ย่อหน้า¶หรือที่เรียกว่า "pilcrow"
   • คุณอาจต้องการแทนที่เครื่องหมายย่อหน้าด้วย pilcrows สองอันเพื่อความสะดวกในการเปลี่ยนในภายหลัง
5. คลิก "แทนที่ทั้งหมด"
6. คัดลอกข้อมูลตารางไปยังคลิปบอร์ด

ใน Excel:

1. วางตารางของคุณในตำแหน่งที่ต้องการใน Excel
2. เมื่อเลือกข้อมูลแบบตารางแล้วให้เปิดกล่องโต้ตอบ "ค้นหาและแทนที่" (อีกครั้งCtrl+ Hทำงาน)
3. ใน "สิ่งที่ค้นหา" ให้ป้อนรหัส Alt ต่อไปนี้: +Alt 0182Pilcrow ปรากฏขึ้น
   • ในการป้อนรหัส Alt ให้กดปุ่มค้างไว้ในAltขณะที่คุณพิมพ์ตัวเลขบนแป้นพิมพ์ตัวเลข มันอาจช่วยให้มีNum Lockใน
4. ในฟิลด์แทนที่ให้ป้อนรหัส Alt Altต่อไปนี้: 0010+
   • รหัสนี้เข้าสู่การขึ้นบรรทัดใหม่ ไม่มีสิ่งใดปรากฏแม้ว่าเคอร์เซอร์ของคุณอาจเปลี่ยนไป
5. คลิก "แทนที่ทั้งหมด"

อ้างอิง:

• http://ask.metafilter.com/168104/Copying-Word-tables-into-Excel-without-splitting-cells-into-multiple-rows
• http://symbolcodes.tlt.psu.edu/accents/codealt.html#punc

มีวิธีที่ง่ายกว่า

หากคุณมีบัญชี Google Gmail คุณสามารถเปิด Google Drive และสร้างสเปรดชีตใหม่จากนั้นคัดลอกตารางทั้งหมดจาก Microsoft Word ไปยัง Google Spreadsheet เมื่อคุณมีมันในรูปแบบที่ต้องการแล้วคุณสามารถคัดลอกตารางลงใน Microsoft Excel

ฉันพบว่าคุณสามารถใช้ LibreOffice Calc

1. เลือกตาราง Word ของคุณ
2. สำเนา
3. ใน LibreOffice Calc วางแบบพิเศษเป็น HTML
4. บันทึกในรูปแบบที่คุณชื่นชอบ

ตารางของคุณจะไม่แยกออกเป็นหลาย ๆ เซลล์

ฉันสร้างฟังก์ชัน vba เพื่อลบบรรทัดใหม่ที่ทำให้เซลล์แตกใน excel ก่อนที่จะคัดลอกไปยัง excel

ย่อย RemoveNewLinesFromTabelCells (tblnumber เป็นจำนวนเต็ม)
'ลบบรรทัดใหม่จากทุกเซลล์ในตารางตารางที่เลือกตามหมายเลขตาราง
  หรี่ x ยาว, y ตราบใด, คอลัมน์นับยาว, rowcount ตราบใด
  columncount = Activedocument.Tables (tblNumber) .Range.Columns.Count
  rowcount = Activedocument.Tables (tblNumber) .Range.Rows.Count
  สำหรับ x = 1 ถึง rowcount
     สำหรับ y = 1 ถึงคอลัมน์จำนวน
        ActiveDocument.Tables (tblNumber) .cell (x, y) .Range.Text = แทนที่ (ActiveDocument.TAbles (tblNumber) .cell (x, y) .Range.Text, Chr (13, "")
     ถัดไป
  หน้า x
ส่วนท้าย