- 博客(1)
- 收藏
- 关注
原创 excel字符串拆分为行
Sub test() Dim arr() As String Sheets("sheet2").Activate xrow = Range("e65536").End(xlUp).Row For i = 2 To Range("a65536").End(xlUp).Row arr = Split(Cells(i, 2), ",") If UBound(arr) ""
2016-05-22 14:04:28 2074
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人