从Sheet1复制行并插入Sheet2的底部

非常迅速的问题，如果你们可以帮助的人！

我需要一个macros将Sheet1中单元格A1和B1中的数据复制到sheet2中A：B底部的最后一个未使用的单元格中，然后按sheet2中列A的最低号码sorting。

基本上我有一个主电话列表，而不是让整个列表中的人松散，并添加东西，我宁愿他们在Sheet1中写入新的编号和名称，然后自动添加到Sheet2的底部，然后再次sorting号码顺序。

Answer 1

如果Sheet1中的数据从第1行开始，那么下面的代码将数据复制到当前数据下方的Sheet2中并对其进行分类

Sub TransferOver() Application.ScreenUpdating = False Dim src As Worksheet, trgt As Worksheet Set src = Sheets(1): Set trgt = Sheets(2) Dim sr As Range, tr As Range, i As Long ' 1 is the first row of data For i = 1 To src.Range("A" & Rows.Count).End(xlUp).Row Set sr = src.Range("A" & i) Set tr = trgt.Range("A" & trgt.Range("A" & Rows.Count).End(xlUp).Row + 1) tr = sr tr.Offset(0, 1) = sr.Offset(0, 1) Set tr = Nothing Set sr = Nothing Next i trgt.Activate trgt.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With trgt.Sort .SetRange Range("A2:B" & trgt.Range("A" & Rows.Count).End(xlUp).Row) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = True End Sub