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

วิธีแปลงตารางทั้งหมดเป็นช่วงในแผ่นงานที่ใช้งานอยู่

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

แปลงตารางทั้งหมดเป็นช่วงของแผ่นงานที่ใช้งานอยู่ด้วย VBA

แปลงตารางทั้งหมดเป็นช่วงของแผ่นงานที่ใช้งานอยู่ด้วย VBA

1. เปิดใช้งานแผ่นงานที่คุณต้องการแปลงตารางจากนั้นกด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

VBA: แปลงตารางของแผ่นงานทั้งหมดเป็นช่วง

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

doc แปลงตารางเป็นช่วง 1

3 กด F5 คีย์เพื่อรันโค้ดตอนนี้ตารางทั้งหมดของชีตปัจจุบันถูกแปลงเป็นช่วงแล้ว

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

🤖 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 (2)
No ratings yet. Be the first to rate!
ecomwhiz
ecomwhiz
This comment was minimized by the moderator on the site
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
-
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
-
It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist
-
Do you have any suggestions as to why that might be, or how to fix it? Any help would be greatly appreciated.
-
Thanks!
Sam
Reply
Report
0
0
ecomwhiz
ecomwhiz
This comment was minimized by the moderator on the site
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next

It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist

Do you have any suggestions as to why that might be, or how to fix it?

Any help would be greatly appreciated.

Thanks!
Sam
Reply
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