EXCEL中,如何将sheet1中的A1,A2,A3……的数值分别导入到sheet2A1,sh...答:Public Sub Fill()Dim x Dim Qty Qty = InputBox("一共有多少个工作表?(包括第一个)")For x = 2 To Qty Sheets(x).Select Cells(1, 1).Value = Sheets(1).Cells(x - 1, 1).Value Next x Sheets(1).Select End Sub 需要注意的是,sheets 1,2,3,4...是工程代码中的1,2,...