会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
福建小屁孩
博客园
首页
新随笔
联系
订阅
管理
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)
编辑
公告