2020年10月12日
Excel工具（批量生成txt）
摘要： Sub txt() Dim i, j, arr(), brr(), myRow, myCol arr = Sheet1.UsedRange myRow = UBound(arr, 1) myCol =UBound(arr, 2) For i = 1 To myRow Open ThisWorkboo 阅读全文
posted @ 2020-10-12 17:34 福建小屁孩 阅读(1330) 评论(1) 推荐(0) 编辑