Excel - แมโครเพื่อทำการคำนวณและบันทึกข้อมูลบนแผ่นงานอื่น

ปัญหา

ฉันมีชุดหมายเลขบัญชีลูกค้าในคอลัมน์ A รายการนี้มีขนาดผันแปร

ความต้องการของฉันคือ:

ฉันได้แบ่งรายการออกเป็นหน้าจำนวน 40 รายการ
ฉันใช้ 40 บัญชีในคอลัมน์ A
ฉันคัดลอกและติดกับแผ่นงานใหม่ 1
ฉันกำลังติดตาม 40 และฉันวางลงในแผ่นงาน 2 และอื่น ๆ ... จนกระทั่งรายการสุดท้าย คุณช่วยฉันได้ไหมเพราะตอนนี้หนังสือ VBA เป็นภาษาจีนสำหรับฉันแล้ว ขอบคุณ!

สารละลาย

ตัวอย่างของวิธีการ:

 Sub exploding () ติ่ม sh เป็นแผ่นงาน, numf ตราบใด, แถวยาวเป็นชุดยาว sh = แอปพลิเคชัน ActiveSheet. ScreenUpdating = False numf = 1: = 1 สำหรับ lig lig sh = 1 ถึง [A65536] End (xlUp) Worksheets.Add after: = Worksheets (Worksheets.Count) ActiveSheet.Name = "ส่วน" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1) ปรับขนาด (40, 1) ค่า = lig lig + numf 39 + 1 = numf lig sh.Activate แอปพลิเคชั่นถัดไป ScreenUpdating = True End Sub

คุณเลือกแผ่นงานที่มีปัญหาก่อนเรียกใช้แมโคร