读取多个表中固定单元格存到一个表中
Sub Tabs()
Dim i As Integer
i = 0
For A = 1 To 9
For B = 1 To 6
i = i + 1
Dim Va As String
Va = "=" + Chr(A + 64) + Chr(B + 64) + "!C85"
Cells(B + 1, A + 1) = Va
Next B
Next A
End Sub
读取多个表中固定单元格存到一个表中
Sub Tabs()
Dim i As Integer
i = 0
For A = 1 To 9
For B = 1 To 6
i = i + 1
Dim Va As String
Va = "=" + Chr(A + 64) + Chr(B + 64) + "!C85"
Cells(B + 1, A + 1) = Va
Next B
Next A
End Sub