设置主页 | 收藏本站 Excel学习网-公益型的EXCEL在线学习网站,助您轻松办公!

用Split函数按分隔符拆分文本为数组并写入单元格

2021年10月23日 14:39 发布来源:Excel学习网

  Sub 将数组写入单元格()

Dim arr As Variant
arr = Split(“别怕@Excel VBA@其实很简单@叶枫@ExcelHome“, “@“)
Dim i As Integer
For i = 0 To UBound(arr)
Cells(2 * (i + 1) - 1, “A“).Value = arr(i)
Next i
End Sub
 
原创文章如转载请注明:转载自Excel学习网 [ http://www.excelcn.com/]
需要保留本文链接地址:http://www.excelcn.com/xuexixinde/14031.html
分享到:
网站地图 | XML地图 | 免责声明 | 关于我们 | Excel学习网:优秀的EXCEL在线学习和资源分享网站。
版权所有: CopyRight © 2013-2018 www.excelcn.com All Rights Reserved.
豫ICP备12002644号