求助，Excel2003怎样写代码来实现点击一次按钮就把别的单元格里的数字，显示到指定位置，非常感谢！

插入一个form和一个commandbutton，用下面的代码就可以了
Option Explicit
Public i As Integer

Private Sub CommandButton1_Click()

Call copykp
End Sub

Private Sub UserForm_Initialize()
i = 2
End Sub

Public Sub copykp()
Dim k As Integer

For k = 1 To 6

Cells(i, k + 1).Value = Cells(i, k + 10)
Next k
i = i + 1

End Sub
六个邮箱我直接发给你得了

Sub BClick()
with ActiveSheet
If .Cells(1,26)="" Then
.Cells(1,26)=2
n=.Cells(1,26)
Else
n=.Cells(1,26)
End If
ar=.Range("K" &n &":P" & n)
.Range("B" & n).Resize(, 6) = ar
.Cells(1, 26) = n + 1
End with
End Sub
只是按你描述的内容简单的写了一个，没有考虑其他情况。

Sub 填充数据()
    i = Application.Count(Range("b:b")) + 2
    Range("k" & i & ":p" & i).Copy Range("b" & i)
End Sub

听上午好高级的样子