Excel - คัดลอกข้อมูลไปยังเซลล์ว่างถัดไปในชีตใหม่

ปัญหา

ฉันกำลังพยายามสร้างสมุดงาน 2 แผ่นซึ่งมีรายละเอียดการป้อนข้อมูลใน Sheet1

A1 และสิ่งนี้มีการเปลี่ยนแปลงทุกสัปดาห์ แต่ข้อมูลในเซลล์นี้ควรจะเป็น

แทรกลงในเซลล์ว่างแรกในคอลัมน์ A ในแผ่นที่ 2

ฉันได้ลองใช้รหัสนี้ (ด้านล่าง) แต่ดูเหมือนจะไม่ทำงานและบางทีฉันก็เป็นเช่นนั้น

ทำสิ่งผิดปกติ มีคนช่วยให้ฉันรู้ว่ารหัสนี้ควรทำงาน

เพื่อจุดประสงค์นี้หรือมีรหัสอื่นที่ฉันสามารถลองได้หรือไม่

รหัสที่ใช้ในปัจจุบัน:

 Sub copytonextsheet () พร้อมแผ่นงาน ("Sheet2") n = .Cells (Rows.Count, "A"). End (xlUp) .Row + 1. เซลล์ (n, "A"). ปรับขนาด (, 4) .Value = _ Cells (1, "A"). ปรับขนาด (, 4) .Value End ด้วย End Sub 

สารละลาย

ลองสิ่งนี้:

 ย่อย CopyRowsWithNumbersInG () Dim X ยาว Dim Dim LastRow เป็น Long Dim Source เป็นเวิร์กชีต Dim ปลายทางเป็นเวิร์กชีต Dim RowsWithNumbers เป็น Range Set Source = Worksheets ("name") Set Destination = Worksheets ("name") พร้อม Source LastRow = Rows.Count, "E"). End (xlUp) .Row สำหรับ X = 2 ถึง LastRow หาก IsNumeric (.Cells (X, "E"). ค่า) และ. เซลล์ (X, "E"). ค่า "" ถ้า RowsWithNumbers ไม่มีอะไรให้ตั้ง RowsWithNumbers = .Cells (X, "E") Else Set RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E")) หากสิ้นสุดถ้าไม่ต่อไป RowsWithNumbers .Copy Destination.Range ("A4") สิ้นสุดหากลงท้ายด้วย MsgBox "ข้อมูลได้รับการอัพเดท !!", vbExclamation + vbInformation "ชื่อ บริษัท " End Sub 

ขอบคุณ Kioskea_1 สำหรับเคล็ดลับนี้