excel
将两个工作表放在一个
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运行此宏，完成。
