发布网友 发布时间:2022-05-13 17:42
共2个回答
热心网友 时间:2023-10-18 15:40
可以通过VBA来实现。
Sub test()
Dim arr(1 To 10)
For x = 1 To 10
arr(x) = Cells(1, 4 + x)
Next
Range("e4:e13").Value = Application.WorksheetFunction.Transpose(arr)
End Sub
执行后结果如下:
热心网友 时间:2023-10-18 15:40
把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删),excel样表文件(尽量详细说明现状和目标效果)作为附件发到yqch134@163.com帮你看下