哪位大仙用白话给翻译一下这段代码

Sub hz()

P = ThisWorkbook.Path & "桌面\" '定义保存路径

ar = Sheet3.Range("c3:i6") '确定数据区域

For i = 5 To UBound(ar) '从第5行开始拷贝数据

Sheet1.[b5] = ar(i, 1)

Sheet1.[c5] = ar(i, 3)

Sheet1.[b5] = ar(i, 7)

Sheet1.[d3] = ar(i, 3)

Sheet1.[d4] = ar(i, 6)

Sheet1.[d5] = ar(i, 7)

If Sheet1.[b5] <> "" Then '根据第一个工作表的内容确定拷贝内容位置

Application.ScreenUpdating = False

Dim s As Shape, x As Range

For Each s In Sheet1.Shapes

If s.Type = 13 Then s.Delete '如果区域有图片就先删除

For Each x In Sheet1.Range("B5") '在sheet2里面查找与sheet1指定位置内容一样的位置偏移后拷贝到sheet1的指定位置

If Not Sheet3.[B5:B11].Find(x) Is Nothing Then Sheet2.[B5:B11].Find(x).Offset(, 8).Copy x.Offset(, 3)

Next x

Sheet1.Range("E3").Borders(xlEdgeBottom).LineStyle = xlLineStyleNone '设置拷贝后的单元格格式

Application.ScreenUpdating = True

End If

Sheet1.Copy

Set wb = ActiveWorkbook

wb.SaveAs P & ar(i, 1) & "." & ar(i, 2) & ".xlsx" '创建新工作簿，拷贝sheet1，然后新工作簿按照汇总表顺序人名保存文件

wb.Close

End Sub

哪位大仙用白话给翻译一下这段代码相关推荐

很久以前某位大仙对petri网的总结
2006年03月14日计算模型的统一分析计算模型的统一分析人类所有的计算模型都包括如下四个要素: 1)输入集合或者输入变量(I): 2)输出集合或者输出变量( ...
matlab画直齿轮,有哪位大神有matlab 直齿轮传动优化的代码
该楼层疑似违规已被系统折叠隐藏此楼查看此楼主程序 clc clear A=[];B=[];Aeq=[];Beq=[];Lb=[1 2 19 19 4 0.1396 0.1369];Ub=[6 6 ...
boost::iostreams模块实现具有64位大文件偏移量的测试程序
boost::iostreams模块实现具有64位大文件偏移量的测试程序实现功能 C++实现代码实现功能 boost::iostreams模块实现具有64位大文件偏移量的测试程序 C++实现代码 ...
matlab if语句多个执行举例,初学Matlab,有两个语句,if语句和switch语句,有两个例子哪位大神能帮我讲讲...
问题描述: 初学Matlab,有两个语句,if语句和switch语句,有两个例子哪位大神能帮我讲讲 if logical_expression statements elseif logical_ex ...
APP推广要掌握什么核心技能？9位大神实战分享
每个做运营的都梦想着从运营APP运营小白,快速成长为APP运营总监,但是这其中的艰辛也是只有经历过才能体会!本文分享9位大神经验,他们经历过不同产品.不同工作经验,看看他们是怎么理解的! 1.子木-A ...
20余位大咖与你相约CCF CED中国工程师文化日，详细日程来袭
2021年10月24日,CCF将举办中国工程师文化日(China Engineers' culture Day),简称CCF CED,由CCF TF.麦思博(msup)有限公司承办,也希望从这一天起, ...
大仙教学 Spring Security
大仙花式讲解Spring Security 1. SpringSecurity 框架简介 1.1 概要 Spring 是非常流行和成功的 Java 应用开发框架,Spring Security 正是 ...
【专业造轮子】一位大神的编程之路，让我大吃一惊
vczh,本名陈梓瀚,因知乎的个人信息介绍上写有 "专业造轮子",所以江湖人称 "轮子哥". vczh 大学时代就在微软实习,毕业后即加入微软.开始时是在微软上 ...
开工了！三位大咖给你指路：未来 3~5 年内，哪个方向的机器学习人才最紧缺？
十一长假结束,收心归来,重新投入工作.如何能克服假期综合症呢?如何快速收心?今天营长就携三位大咖来为你打打鸡血,指引指引未来的路.他们将从自身的工作经历和学习经历的角度,告诉你未来3到5年,你的努力应 ...

哪位大仙用白话给翻译一下这段代码

哪位大仙用白话给翻译一下这段代码相关推荐

最新文章

热门文章