1. 说明

该模块是根据Excel宏编程官网及录制时相关操作进行编写的，如有不足之处，望批评指正！！！

2. 代码

2.1 筛选相关内容，且复制筛选内容

筛选内容前，需将相应表格置于活动表格
需要同时筛选一个内容

Function AssistFileSelVol(Filename, SheetName, Item, Step, T)
'选择对应的工步并进行单步复制 _ 文件名_工作薄名_第几列进行筛选_工步序号_按需要切换列数Windows(Filename).ActivateSheets(SheetName).SelectIf T = 1 ThenActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=StepRange(Columns(8), Columns(9)).Select: Selection.CopyElseIf T = 0 ThenActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=StepRange(Columns(9), Columns(9)).Select: Selection.CopyElseIf T = 3 ThenRange(Columns(3), Columns(3)).Select: Selection.CopyElseIf T = 5 ThenActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=StepRange(Columns(5), Columns(5)).Select: Selection.CopyEnd IfEnd FunctionFunction AssistSelVol(SheetName, Item, Step, T)
'选择对应的工步并进行单步复制 _ 工作薄名_第几列进行筛选_工步序号_按需要切换列数Sheets(SheetName).SelectActiveSheet.Range("$A$1:$L$1").AutoFilter Field:=Item, Criteria1:=StepIf T = 1 ThenRange(Columns(8), Columns(9)).SelectSelection.CopyElseRange(Columns(9), Columns(9)).SelectSelection.CopyEnd IfEnd Function

需要同时筛选两个内容

Function AssistFileTwoSelVol(Filename, SheetName, Item, Two_Endto, T)
'选择对应的工步并进行两步复制 _ 文件名_工作薄名_第几列进行筛选_多个工步序号_按需要切换列数Windows(Filename).ActivateSheets(SheetName).SelectDim DQ41 As String, DQ42 As StringDQ41 = Two_Endto(1)DQ42 = Two_Endto(2)ActiveSheet.Range("$A$1:$L$41500").AutoFilter Field:=2, Criteria1:=DQ41, _Operator:=xlOr, Criteria2:=DQ42If T = 1 ThenRange(Columns(8), Columns(9)).SelectSelection.CopyElseRange(Columns(9), Columns(9)).SelectSelection.CopyEnd IfEnd FunctionFunction AssistTwoSelVol(SheetName, Item, Two_Endto, T)
'选择对应的工步并进行两步复制 _ 工作薄名_第几列进行筛选_多个工步序号_按需要切换列数Sheets(SheetName).SelectDim DQ41 As String, DQ42 As StringDQ41 = Two_Endto(1)DQ42 = Two_Endto(2)ActiveSheet.Range("$A$1:$L$41500").AutoFilter Field:=2, Criteria1:=DQ41, _Operator:=xlOr, Criteria2:=DQ42If T = 1 ThenRange(Columns(8), Columns(9)).SelectSelection.CopyElseRange(Columns(9), Columns(9)).SelectSelection.CopyEnd IfEnd Function

因需同时筛选三个内容，故有数组的形式进行内容输入，使用时逐一赋值

Function AssistFileMultiSelVol(Filename, SheetName, Item, Third_Endto, T)
'选择对应的工步并进行三步复制 _ 文件名_工作薄名_第几列进行筛选_多个工步序号_按需要切换列数Windows(Filename).ActivateSheets(SheetName).SelectDim DQ41 As String, DQ42 As String, DQ43 As StringDQ41 = Third_Endto(1)DQ42 = Third_Endto(2)DQ43 = Third_Endto(3)ActiveSheet.Range("$A$1:$L$59464").AutoFilter Field:=Item, Criteria1:=Array( _DQ41, DQ42, DQ43), Operator:=xlFilterValuesIf T = 1 ThenRange(Columns(8), Columns(9)).SelectSelection.CopyElseRange(Columns(9), Columns(9)).SelectSelection.CopyEnd IfEnd FunctionFunction AssistMultiSelVol(SheetName, Item, Third_Endto, T)
'选择对应的工步并进行三步复制 _ 工作薄名_第几列进行筛选_多个工步序号_按需要切换列数Sheets(SheetName).SelectDim DQ41 As String, DQ42 As String, DQ43 As StringDQ41 = Third_Endto(1)DQ42 = Third_Endto(2)DQ43 = Third_Endto(3)ActiveSheet.Range("$A$1:$L$59464").AutoFilter Field:=Item, Criteria1:=Array( _DQ41, DQ42, DQ43), Operator:=xlFilterValuesIf T = 1 ThenRange(Columns(8), Columns(9)).SelectSelection.CopyElseRange(Columns(9), Columns(9)).SelectSelection.CopyEnd IfEnd Function

2.2 区域内容复制

单个数据进行复制

Function AssistFileCopy(Filename, SheetName, H, l)
'将所选择的数据进行复制 _ 文件名_工作薄名_,,所在位置Windows(Filename).ActivateSheets(SheetName).SelectCells(H, l).SelectSelection.CopyEnd FunctionFunction AssistCopy(SheetName, H, l)
'将所选择的数据进行复制 _ 工作薄名_,,所在位置Sheets(SheetName).SelectCells(H, l).SelectSelection.CopyEnd Function

范围性数据选中进行复制

Function AssistFileRangeCopy(Filename, SheetName, H1, L1, H2, L2)
'将所选择的范围数据进行复制 _ 文件名_工作薄名_ ,,首位_,,末位Windows(Filename).ActivateSheets(SheetName).SelectRange(Cells(H1, L1), Cells(H2, L2)).SelectSelection.CopyEnd FunctionFunction AssistRangeCopy(SheetName, H1, L1, H2, L2)
'将所选择的范围数据进行复制 _ 工作薄名_ ,,首位_,,末位Sheets(SheetName).SelectRange(Cells(H1, L1), Cells(H2, L2)).SelectSelection.CopyEnd Function

2.3 黏贴

无其他操作，直接进行黏贴

Function AssistFilePaste(Filename, SheetName, H, l)
'将所选择的数据进行黏贴 _ 文件名_工作薄名_,,所在位置Windows(Filename).ActivateSheets(SheetName).SelectCells(H, l).SelectActiveSheet.PasteEnd FunctionFunction AssistPaste(SheetName, H, l)
'将所选择的数据进行黏贴 _ 工作薄名_,,所在位置Sheets(SheetName).SelectCells(H, l).SelectActiveSheet.PasteEnd Function

对复制内容进行转置黏贴

Function AssistFilePasteTrans(Filename, SheetName, H, l)
'将所选择的数据进行转置黏贴 _ _ 文件名_工作薄名_,,所在位置Windows(Filename).ActivateSheets(SheetName).SelectCells(H, l).SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueEnd FunctionFunction AssistPasteTrans(SheetName, H, l)
'将所选择的数据进行转置黏贴 _ 工作薄名_,,所在位置Sheets(SheetName).SelectCells(H, l).SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueEnd Function

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

【007】Excel宏编程相关封装模块（筛选、复制、黏贴）_001_#VBA相关推荐

【016】Excel宏编程的交互解析（Cells）_002_#VBA
Cells 1 交互元件 Cells 解析 1.1 元素解读 1.2 操作后缀 2 对列进行编号 3 说明 1 交互元件 Cells 解析 1.1 元素解读 Cells(RowIndex,Column ...
excel 宏编程_在 Excel 中使用 Python 开发宏脚本
点击上方蓝字,每天一起学 Python,文末领送书福利文 | varlemon 编辑 | EarlGrey 推荐 | 编程派公众号(ID:codingpy) 之前发文介绍过一个叫GridStudio ...
EXCEL宏编程纪念
不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念: Sub direct_Price() ' 'query_dir_volume '宏由颜清国编 ...
makefile使用宏及用法$(宏标识符) $(cc)_宏编程的艺术
微信限制:不能放置链接,代码样式比较奇怪,发布后不能更新... 推荐阅读原文: 写在前面之前写过几篇关于 C/C++ 宏 (macro) 和 C++ 元编程 (metaprogramming) 的 ...
excel子表与母表筛选_滚动浏览Excel表中的筛选器项目
excel子表与母表筛选 To see specific data in an Excel Table, you can select an item from the drop down filte ...
WPS JS宏编程是什么
WPS JS宏编程是一种基于JavaScript语言的自动化办公技术,可以通过编写脚本来自动化执行一些重复性的任务,例如格式化文本.生成报表.处理数据等.本教程将介绍WPS JS宏编程的基本概念.语法 ...
python处理excel文件的模块_python处理Excel文件的几个模块
在python中简单地处理excel文件,有几个相关的模块,各有千秋,本文将不定时收录. Python Excel网站收集了关于python处理excel文件的各种信息. [注意]使用python处理 ...
python不能处理excel文件-python处理Excel文件的几个模块
在python中简单地处理excel文件,有几个相关的模块,各有千秋,本文将不定时收录. Python Excel网站收集了关于python处理excel文件的各种信息. [注意]使用python处理 ...
荣耀发布标志性旗舰智能手机Magic3系列；环旭电子为小型物联网设备推出双核蓝牙5.0天线封装模块 | 全球TMT...
新品荣耀发布全新荣耀Magic3系列手机,这是标志性旗舰智能手机系列,包括荣耀Magic3.荣耀Magic3 Pro和荣耀Magic3至臻版这三款手机.耀Magic系列采用同类最佳多主摄计算摄影技术 ...
用EXCEL宏编写坐标转换
用EXCEL宏编写坐标转换* 网上查了很多坐标转换代码和各种参数,很多不一致或不完整,自编VBA坐标转换,进行代码验证,和专业的坐标转换软件比较,如常见的笑脸坐标转换软件COORD GM和中海达的Co ...

【007】Excel宏编程相关封装模块（筛选、复制、黏贴）_001_#VBA

Excel宏编程相关封装模块-第1期

1. 说明

2. 代码

2.1 筛选相关内容，且复制筛选内容

2.2 区域内容复制

2.3 黏贴

【007】Excel宏编程相关封装模块（筛选、复制、黏贴）_001_#VBA相关推荐

最新文章

热门文章