Question

求VBA命令按钮代码

把表1的数据保存到表2

Answer 1

Sub qq()
Dim i As Integer, j As Integer, n As Integer, m As Integer
n = 0: m = 4
If Len(Sheet2.Cells(10, 13)) > 0 Then GoTo 100
For i = 5 To 10 Step 1
For j = 10 To 19 Step 1
Sheet2.Cells(i, j) = Sheet1.Cells(i, j)
Next j
Next i
Exit Sub
100:
For i = 10 To 10000 Step 1
If Sheet2.Cells(i, 13) = "" Then
n = i
Exit For
End If
Next i
For i = n To n + 5 Step 1
m = m + 1
For j = 10 To 19 Step 1
Sheet2.Cells(i, j) = Sheet1.Cells(m, j)
Next j
Next i
End Sub

追问

我运行了，Sheet2表中还是没有数据，有Q吗？方便加我（1360112399）指导一下吗？感谢！

追答

明天帮你解决!

Answer 2

什么意思？要什么样的代码呢？
参考http://office.microsoft.com/zh-cn/excel-help/HP010236676.aspx
和http://zhidao.baidu.com/question/285141004.html

Answer 3

Private Sub CommandButton1_Click()

End Sub

Answer 4

什么命令啊,请说清楚