2019 年 12月 11 日随笔档案 - 一个行者

2019年12月11日

摘要： Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 n1 = 1 m1 = 2 p = 4 'Applicat 阅读全文

posted @ 2019-12-11 14:00 一个行者阅读(1857) 评论(0) 推荐(0) 编辑

excel VBA根据单元格内的逗号把内容拆分行

摘要： Sub test1() Dim h Dim j As Integer j = 0 '用于辅助循环的进行，可以在拆分行获取下一个需要拆分单元格的行号 'Application.ScreenUpdating = False 'For i = 1 To Range("a65536").End(xlUp). 阅读全文

posted @ 2019-12-11 09:25 一个行者阅读(2933) 评论(0) 推荐(0) 编辑