VBA 如下: Private Sub SpinButton1_Change() Dim actiRow As Integer Dim x, y As Object Set x = ActiveWorkbook.Sheets("sheet1") Set y = ActiveWorkbook.Sheets("sheet2") y.Activate actiRow = ActiveCell.Row rowindx = SpinButton1.Value TextBox1 = x.Cells(rowindx, 2) y.Cells(actiRow, 1) = x.Cells(rowindx, 1) y.Cells(actiRow, 2) = x.Cells(rowindx, 2) y.Cells(actiRow, 3) = x.Cells(rowindx, 3) End Sub