EXCEL如何将表格里的数据自动填充到另一个表格上？

Question

如图，如何将图1里的数据自动填充到图2里？

Answer 1

在表二单元格输入“=”然后点击想要获取的表一单元格的数据就可以了。

Answer 2

用如下代码：

Sub 数据邮件合并()
Dim Arr, Shin As Worksheet, Shout As Worksheet, i&, j&, k&
Set Shin = Sheet1
Set Shout = Sheet3
j = 1: k = 1
For i = 2 To 8'始末行号
Arr = Shin.Cells(i, 1).Resize(1, 7)
[Hguuju] = Arr
[Fguuju].Copy Shout.Cells(j, k)
Arr = [Fguuju]
Shout.Cells(j, k).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
k = k + 3
If k > 9 Then k = 1: j = j + 8
Next i
End Sub