Excel - ส่งออกข้อมูลไปยังสเปรดชีตอื่น

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

ปัญหา
สารละลาย
สังเกตได้ว่า

ปัญหา

ฉันมีคำถาม เมื่อใดก็ตามที่ฉันส่งออกไฟล์จากอินเทอร์เน็ตข้อมูลจะถูกบันทึกลงในไฟล์ Excel ใหม่แทนที่จะเป็นแผ่นงาน Excel ที่ฉันใช้งานด้วยเหตุนี้ฉันต้องคัดลอกข้อมูลจากไฟล์นั้นไปยังไฟล์ Excel ที่ฉันกำลังทำงานอยู่นี่คือ เสียเวลามาก มีวิธีที่สั้นกว่าในการส่งออกข้อมูลไปยังไฟล์ Excel ที่ใช้งานได้โดยตรงหรือไม่
ฉันมีปัญหาอื่นอีก ฉันบันทึกมาโครสำหรับแผ่นงานเฉพาะ มาโครนั้นทำสองสิ่ง 1. มีสองคอลัมน์ คอลัมน์ A และคอลัมน์ B ในคอลัมน์ C จะลบคอลัมน์ A จาก B 2 โดยจะหาค่าเฉลี่ยถ่วงน้ำหนักระหว่าง col A และ C

ตอนนี้ฉันต้องการเรียกใช้แมโครนี้ในแผ่นงานทั้งหมดยกเว้นแผ่นงานแรก รหัสที่จะทำคืออะไร?

สารละลาย

เพื่อแก้ปัญหานี้:

คัดลอกที่อยู่เว็บเพจในคลิปบอร์ดของ Excel
ไปที่แผ่นงานของคุณ
เลือกเซลล์ใดก็ได้ที่คุณต้องการคัดลอกไฟล์ เช่น A1
คลิกข้อมูล - นำเข้าข้อมูลภายนอก (หรือบางอย่างเช่นนี้ขึ้นอยู่กับรุ่น) - แบบสอบถามเว็บใหม่
ในหน้าต่างแบบสอบถามเว็บใหม่ให้วางที่อยู่ของหน้าเว็บที่ด้านบนกับ "ที่อยู่"
คลิกที่ไป
คุณจะได้รับหน้าเว็บทั้งหมด ไม่ว่าคุณต้องการตารางใดให้คลิกเครื่องหมายถูกและตารางทั้งหมดจะถูกทำเครื่องหมาย
คลิก "นำเข้า" ที่ด้านล่างขวา
มันจะถามว่าคุณต้องการจอดรถที่ไหน หากเป็น A1 อยู่แล้วคลิกตกลง

วิธีแก้ปัญหาที่สอง:

 Sub test1 () Dim j As Integer, k As Integer j = Worksheets.Count 'MsgBox j สำหรับ k = 1 ถึง j' MsgBox ชีต (k) .Name ถ้า Sheets (k) .Name = "Sheet1" จากนั้นไปที่ nnext ผ้าปูที่นอน ( k) เปิดใช้งานชื่อของ MACRO ถัดไป: ถัดไป k สิ้นสุด