親，這個的確需要VBA程式設計，

Sub copydata()Dim r, endrow As LongDim Shlr, ShdataSet Shlr = Sheets("錄入"): Set Shdata = Sheets("資料儲存")endrow = Shdata.Cells(Rows.Count, "D").End(xlUp).Row + 1r = Shlr.Cells(Rows.Count, "A").End(xlUp).Offset(-1, 1).End(xlUp).RowShlr.Range("B12").Copy Shdata.Range("A" & endrow)Shlr.Range("A16").Resize(r - 16 + 1).Copy Shdata.Range("B" & endrow)Shlr.Range("B16").Resize(r - 16 + 1).Copy Shdata.Range("C" & endrow)Shlr.Range("D16").Resize(r - 16 + 1).Copy Shdata.Range("D" & endrow)Shlr.Range("E16").Resize(r - 16 + 1).Copy Shdata.Range("E" & endrow)Shlr.Range("F16").Resize(r - 16 + 1).Copy Shdata.Range("F" & endrow)Shlr.Range("D12").Copy Shdata.Range("G" & endrow)Shlr.Range("F12").Copy Shdata.Range("H" & endrow)Shlr.Range("D13").Copy Shdata.Range("I" & endrow)Shlr.Range("B13").Copy Shdata.Range("J" & endrow)End Sub