摘要:
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
阅读(626)
评论(0)
推荐(0)
摘要:
可以看到需求是工作簿合内容并到一个工作簿 新建一个工作簿,然后右键查看代码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
阅读(981)
评论(0)
推荐(0)

浙公网安备 33010602011771号