sub lulu() dim i%,r% for I = 3 to 8 if sheets(1).cells(3,I)="" then msgbox "请录入完整数据。" exit sub end if next r= sheets(3).range("a65536").end(xlup).row +1 sheets(1).range("b3:h3").copy sheets(3).range("a" & r).pastespecial paste:=xlpastevalues sheets(1).range("c3:h3").clear end sub 手机打字没有测试