ฉันจะเปลี่ยนตัวคั่นเมื่อคัดลอกวางจาก Excel ได้อย่างไร

ฉันต้องการคัดลอกเซลล์จาก Excel และวางลงใน Notepad โดยใช้เครื่องหมายจุลภาค,เป็นตัวคั่นแทนอักขระแท็บ

มีวิธีใดที่จะเปลี่ยนตัวคั่นโดยไม่ทำการค้นหาและแทนที่ใน Notepad หรือบันทึกสเปรดชีตเป็น CSV

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

1. สร้างแมโครชื่อคล้ายCopySelectedCellsและเลือกกำหนดแป้นพิมพ์ลัดเพื่อให้คุณสามารถเรียกใช้อย่างรวดเร็ว ( ตัวอย่างเช่นฉันกำหนดให้Ctrl+ Shift+ C):

   

2. จากกล่องโต้ตอบแมโครหลักที่แสดงด้านบนให้คลิกปุ่มแก้ไขเพื่อเปิดตัวแก้ไข VBA

3. ไปที่Tools menu / Referencesและคลิกที่ปุ่มเรียกดู

4. เพิ่มWindows \ System32 \ FM20.dll :

   

5. เลือกตัวเลือกไลบรารีวัตถุของ Microsoft Forms 2.0ตอนนี้เพิ่มลงในรายการการอ้างอิงที่มีอยู่ :

   

6. แก้ไขรหัสแมโครให้มีลักษณะดังนี้:

   Sub CopySelectedCells()
       Dim str As String
       For Each rangeRow In Selection.Rows
           For Each rangeCol In rangeRow.Cells
               str = str & rangeCol.Value & ","
           Next
           str = Left(str, Len(str) - 1) & vbCrLf
       Next
   
       With New DataObject
           .SetText str
           .PutInClipboard
       End With
   End Sub
   

7. ปิดตัวแก้ไข VBA เลือกช่วงของเซลล์และเรียกใช้แมโครแล้ววางใน Notepad เพื่อดูผลลัพธ์ที่คั่นด้วยเครื่องหมายจุลภาค

เชื่อมโยงเซลล์ที่ต้องการเป็นสตริงในเซลล์ที่ไม่ได้ใช้ด้วยเครื่องหมายจุลภาคระหว่างเซลล์เหล่านั้นและคัดลอกเฉพาะเซลล์ใหม่นี้และวางในแผ่นจดบันทึก ตัวอย่างเช่น: = A1 & "," & B1

คุณสามารถแทนที่แท็บทั้งหมดด้วยเครื่องหมายจุลภาคใน Notepad ++ เลือกข้อความทั้งหมดกดCtrl+ Hและใช้\tสำหรับแท็บ อย่าลืมเปิดโหมดค้นหา "ขยาย"