答案 0 :(得分:1)
试试看!如果需要,请更改range()!
Sub macro()
'Variable declaration
Dim tbl As Range
Dim col1 As Variant
col1 = Array(1, 3, 5, 7)
Set tbl = Range("A1:A4")
With tbl
.Value = Application.Transpose(col1)
End With
End Sub
答案 1 :(得分:1)
在E6中输入object
,然后填写以实现图片中显示的结果。