当前位置: 首页 > news >正文

无锡外贸网站开发竞价托管资讯

无锡外贸网站开发,竞价托管资讯,中国银行官网首页登录入口,网站合作建设合同自动化流程 我们对一个报表进行自动化改造会经历的固定流程,这里称为“流水线”,通常包含以下流程: 打开一个表格选择打开的表格选择表格中的Sheet选择Sheet中的单元格区域 (有时候需要按条件筛选)复制某个区域 粘贴…

自动化流程

我们对一个报表进行自动化改造会经历的固定流程,这里称为“流水线”,通常包含以下流程:

  • 打开一个表格
  • 选择打开的表格
  • 选择表格中的Sheet
  • 选择Sheet中的单元格区域 (有时候需要按条件筛选)
  • 复制某个区域 粘贴在某个区域
    (有时候需要刷新某个透视表)
    完成后保存
    最后一步关闭表格
    在这里插入图片描述

以下是一段包含了上述过程的脚本

基础复制粘贴和填充公式

'基础复制粘贴和填充公式
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet, pt As PivotTable
Dim lastRow As Long
Set wb1 = Workbooks.Open("表格21.xlsx")
Set ws1 = wb1.Sheets("Sheet1")
Set pt = ws1.PivotTables("数据透视表3")
pt.PivotCache.Refresh'获取需要复制区域的最后一行行号
lastRow = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
ws1.Range("A6:D" & lastRow).CopySet wb2 = Workbooks.Open("表格44.xlsx")
Set ws2 = wb2.Sheets("H433区")'获取准备粘贴区域的第一个为空行的行号(粘贴起始位置)
lastRow = ws2.Range("A" & ws2.Rows.Count).End(xlUp).Row + 1'粘贴
ws2.Range("A" & lastRow).PasteSpecial xlPasteValues'获取粘贴后的区域的最后一行行号
lastRow = ws2.Range("A" & ws2.Rows.Count).End(xlUp).Row 
‘将F:H列的公式填充导最后一行
With ws2.Range("F2:H2")
.AutoFill Destination:=ws2.Range("E2:H" & lastRow)
End Withwb1.Save
wb1.Close
wb2.Save
wb2.Close

数据筛选

'数据筛选
Dim ws As Worksheet
Dim lastRow As Long
Dim filterRange As Range
Dim filteredData As Range
Dim n As LongSet ws = ThisWorkbook.Worksheets("Sheet1")lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set filterRange = ws.Range("A1:AF" & lastRow)'筛选数据范围
With filterRange.AutoFilter Field:=7, Criteria1:=">=" & DMin, Operator:=xlAnd, Criteria2:="<=" & DMaxSet filteredData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
End WithIf Not filteredData Is Nothing Then'将筛选后的数据复制到Sheet3的A2单元格开始的区域Set ws = ThisWorkbook.Worksheets("Sheet3")ws.Range("A2").Resize(filteredData.Rows.Count, filteredData.Columns.Count).Value = filteredData.Valuews.Range("A" & lastRow + 1 & ":AF" & ws.Rows.Count).ClearContents
End If'以下这种写法在功能上是等效的,即将filteredData复制到A2单元格开始的位置。
'但是,它使用了Select和Activate语句,这是不推荐的。
'使用Select和Activate语句会使代码变得缓慢且容易出错.
'应该直接将filteredData的值赋给目标区域(Value)‘filteredData.Copy 
’Range("A2").Select
‘Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _’   :=False, Transpose:=False'清除筛选
filterRange.AutoFilter'释放对象内存
Set ws = Nothing
Set filterRange = Nothing
Set filteredData = Nothing

筛选删除


Dim ws As Worksheet
Dim lastRow As Long
Dim filterRange As Range
Dim filteredData As Range
Dim n As LongSet ws = ThisWorkbook.Worksheets("Sheet1")lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set filterRange = ws.Range("A1:AF" & lastRow)'筛选数据范围赋值filteredData
'使用Offset方法将filterRange对象向下偏移1行,以排除标题行。
'然后使用Resize方法调整数据区域的大小,使其与filterRange对象的行数相同,但不包括标题行。
'使用SpecialCells方法和xlCellTypeVisible参数,获取可见单元格范围,即筛选后的数据区域。
With filterRange
.AutoFilter Field:=7, Criteria1:=">=" & DMin, Operator:=xlAnd, Criteria2:="<=" & DMax
Set filteredData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
End WithIf Not filteredData Is Nothing Then
'删除不符合条件的行
filteredData.EntireRow.Delete
End If
'取消筛选
filterRange.AutoFilter
http://www.dinnco.com/news/36144.html

相关文章:

  • 京东网站网站建设是什么巨量算数数据分析入口
  • 南阳seo如何进行关键词优化工作
  • 长春世邦做网站家庭优化大师
  • 方正悠黑使用网站建设侵权么贵阳网络推广外包
  • 天猫商务网站建设目的公司想做个网站怎么办
  • 企业做网站平台的好处山东企业网站建设
  • 做直播网站需要学什么软件有哪些seo优化与品牌官网定制
  • 动态网站系统郑州百度快照优化排名
  • 滁州市政府网站集约化建设高端定制网站建设公司
  • 做品牌折扣微信推广的网站本地推荐本地推荐
  • 荣誉章标志做网站今日热点新闻素材
  • 毕业设计用java做网站免费建网站平台
  • 网站开发公司简介怎么写长春seo关键词排名
  • 做直销网站的公司黄页推广2021
  • 做网站的图片大全网络竞价推广开户
  • 个人博客网站设计的目的百度登录个人中心官网
  • 建设彩票投注网站搜索引擎营销的主要模式有哪些
  • 中国邮政做特产得网站如何申请网站域名流程
  • 做兼职有哪些网站活动营销方案
  • 那个网站是专门做渔具的广州seo优化公司排名
  • php源码之家襄阳网站推广优化技巧
  • 盐城网站优化推广服务十大免费软文推广平台
  • 一般app开发费用seo推广优化外包公司
  • java购物网站开发教程沧州百度推广总代理
  • 无锡高端网站设计开发网络营销软文范例
  • 有哪些程序网站网优工程师前景和待遇
  • 帮别人做设计的网站湖南seo优化按天付费
  • 适合vue做的网站类型微信广告怎么投放
  • 上传文档的网站网络公司推广方案
  • 惠州大亚湾经济技术开发区做百度seo