作者：乔山办公网日期：
返回目录：excel表格制作
要填充D列，可这样做：
在名称框中输入
D1:D10000
回车后输入
=A1&"-"&B1
最后同时按Ctrl+Enter两键确认。
A列 2000行以抄后的袭自行删除zhidao
Sub jk()
Dim i, j, k
For i = 1 To 4
For j = 1 To 2000
[B1].Offset(j - 1, i - 1) = Cells(2000 * i + j, 1)
Next
Next
End Sub
按下F5键，打开定位对话框，在引用位置输入A5:A10000,确定即可。