求助！！！！！！！！！！！着急！！谢谢谢谢！

斯蒂芬.马布里

自动保存的按钮！！！！！！谢谢大家！

斯蒂芬.马布里

谢谢各位大侠！！！！感谢！！！！！！！！！！

szxiaomuyu

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j  As Integer
Dim iRow As Integer
Dim rRow As Integer
Dim Sh2 As Worksheet

rRow = ThisWorkbook.Sheets(1).Range("a23").End(xlUp).Row

Set Sh2 = ThisWorkbook.Sheets(2)
With ThisWorkbook.Sheets(1)

If rRow = 16 Then
MsgBox "no data"
Exit Sub
End If

For i = 16 To rRow
iRow = ThisWorkbook.Sheets(2).Range("a65536").End(xlUp).Row + 1
Sh2.Cells(iRow, 1) = Date
For j = 1 To 11
Sh2.Cells(iRow, j + 1) = .Cells(rRow, j)
Next

Next


End With



End Sub

szxiaomuyu

附件Private Sub CommandButton1_Click()
Dim i As Integer
Dim j  As Integer
Dim iRow As Integer
Dim rRow As Integer
Dim Sh2 As Worksheet
rRow = ThisWorkbook.Sheets(1).Range("a23").End(xlUp).Row
Set Sh2 = ThisWorkbook.Sheets(2)
With ThisWorkbook.Sheets(1)
If rRow = 16 Then
MsgBox "no data"
Exit Sub
End If
For i = 16 To rRow
iRow = ThisWorkbook.Sheets(2).Range("a65536").End(xlUp).Row + 1
Sh2.Cells(iRow, 1) = Date
For j = 1 To 11
Sh2.Cells(iRow, j + 1) = .Cells(rRow, j)
Next
Next

End With

End Sub