2022年1月7日
excel 获取多个工作簿指定位置数据
摘要： Sub data_() Dim i As Single For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Cells(6, 2) Next End Sub循环遍历数据 阅读全文
posted @ 2022-01-07 15:09 dafengchui 阅读(627) 评论(0) 推荐(0)
Excel 多个工作簿合并到一个工作簿
摘要： 可以看到需求是工作簿合内容并到一个工作簿 新建一个工作簿，然后右键查看代码Alt+F11 Sub hebing() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveShee 阅读全文
posted @ 2022-01-07 15:07 dafengchui 阅读(989) 评论(0) 推荐(0)