Sub 合并各工作表内容()sp = InputBox(各表内容之间间隔几行不输则默认为0)If sp = Then sp = 0End Ifst = InputBox(各表从第几行开始合并不输则默认为2)If st = Then st = 2End IfSheets(1). If st > 1 Then Sheets(2).Select Rows(1: CSt