用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.excelxx.com/]
需要保留本文链接地址：http://www.excelxx.com/xuexixinde/14031.html
需要保留本文链接地址：http://www.excelxx.com/xuexixinde/14031.html
上一篇：如何用VBA删除单元格
下一篇：设置只有在指定单元格中输入内容后才能关闭工作簿
相关教程：
经典Excel学习视频及教程推荐：
Excel优秀工具推荐：
小工具推荐：