Private Sub CommandButton1_Click() For r = 1 To a ' a为您想要插入的行总数 For c = 2 To 37 Sheet1.Cells(r, c) = sheet1.cells(r,1) Next NextEnd Sub
