Array在表头的应用,简单方便好用。

ning84 · 发表于 2024-5-5 07:26

Sub ll()
Dim Sht As Worksheet
Set Sht = Sheet1
Sht.Cells(1, 1).Resize(1, 26) = Array("yyyy", "mm", "dd", "Date", "Name", "Size", "Picture", , , , , , , , , , , "Dict1", "Dict2", "Dict3", , , , , "AfterMoveFile", "MoveFile")
End Sub

复制代码

liulang0808 · 发表于 2024-5-5 08:20

后面的array数组内容，也可以考虑使用sp拆分字符串的

jimyou · 发表于 2024-5-5 08:25

对列出多赋值还是挺方便的

micch · 发表于 2024-5-5 10:56

麻烦，一大堆引号。不如字符串split方便

changhong8 · 发表于 2024-5-5 11:40

这样的一般是先做一个表头，然后单元格公式 =区域，F9获取公式里面的表头数据，最后复制到array里面

		自动登录	找回密码
密码			免费注册