2020年2月15日
把数据按列拆分为数据表
摘要： Sub caifengbiao()Dim i, k As IntegerDim sht As Worksheet For i = 2 To Range("a65536").End(xlUp).Row k = 0For Each sht In Sheets If Sheet1.Range("d" & 阅读全文
posted @ 2020-02-15 18:31 紫辰花月 阅读(238) 评论(1) 推荐(0) 编辑