第1个回答 推荐于2016-06-14
将两个工作表放在一个Excel文件里,图二取名Sheet2,图一取名Sheet1(或者将下面代码中的名字改成你的)。
同时按Ctrl和F11,点新出来的窗口菜单的插入,模块;在右边的窗口中粘贴如下代码:
Sub Macro1()
Dim i As Integer
Dim myArray(1 To 20)
Sheets("Sheet2").Select
For i = 4 To 23
myArray(i - 3) = Cells(i, 3)
Next i
Sheets("Sheet1").Select
For i = 0 To 19
Cells(i * 39 + 8, 7) = myArray(i + 1)
Next
End Sub
按F5运行此宏,完成。本回答被提问者采纳