读取多个表中固定单元格存到一个表中
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
本文标题:Excel 单元格操作
本文链接:https://www.haomeiwen.com/subject/yqdffqtx.html
网友评论