讀取多個(gè)表中固定單元格存到一個(gè)表中
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
讀取多個(gè)表中固定單元格存到一個(gè)表中
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