VBA，excel中选择特定内容复制粘贴

重点是这个：End(xlDown)、End(xlUp)、End(xltoLeft)、End(xltoRight)，就是从某个单元格开始，向下/上/左/右找到第一个有数据的单元格。
sheet1

   A    |   Bid    |  公式列001   |   20002   |   11003   |    0

sheet2原始

   A   |   B        |     Cid  |  公式列     |   数值列004  |   12       |     12005  |   17       |     17

sheet2宏后

   A     |   B         |     Cid    |  公式列      |   数值列004    |   12        |     12005    |   17        |     17003    |    0        |      0

我要把sheet1的B:B列是0的A:A列筛选出来，再复制：

    Sheets("sheet1").SelectActiveSheet.Range("$B$1:$B$10000").AutoFilter Field:=3, Criteria1:=0Range("A2").SelectRange(Selection, Selection.End(xlDown)).SelectSelection.Copy

再粘贴到sheet2的A:A列最下面：

    Sheets("sheet2").SelectRange("A1").SelectSelection.End(xlDown).SelectRange("A" & Range("A1").End(xlDown).Row + 1).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

把sheet2的第二列公式填充下来：

    Sheets("sheet2").SelectROW1 = Range("A" & Rows.Count).End(xlUp).RowRange("B2").CopyRange("B2:B" & ROW1).PasteSpecial Paste:=xlPasteFormulasApplication.CutCopyMode = False

把填充的公式显示的数值复制到C:C列

    Sheets("sheet2").SelectROW2 = Range("C" & Rows.Count).End(xlUp).RowRange(Cells(ROW2 + 1, 2), Cells(ROW1, 2)).SelectSelection.CopyRange(Cells(ROW2 + 1, 3), Cells(ROW1, 3)).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

VBA，excel中选择特定内容复制粘贴相关推荐

将excel中的表快速复制粘贴进word中且不变形
1.在excel中,选中表中的任意一个单元格,ctrl+a,系统会自动全选表格 2.ctrl+c 3.到word中,不要直接ctrl+v,而是要ctrl+alt+v,选择性粘贴,选择Micorsoft ...
在windows或linux中使用VIM/VI复制粘贴内容命令及设置大全
在windows或linux中使用VIM/VI复制粘贴内容命令及设置大全行复制: [yy]复制光标所在行 [p]在光标位置粘贴复制的内容多行复制: [v]从当前位置进行可视化模式([Ctrl+v] ...
批量提取excel中包含特定关键字的单元格内容
批量提取excel中包含特定关键字的单元格内容链接:https://pan.baidu.com/s/1uTnkYXh8jBcaeda-JoQDuQ 提取码:jbkv class get_xls_da ...
python批量处理excel文本改为数字_Python批量修改Excel中的文件内容
import os import xlrd from xlutils.copy import copy def base_dir(filename=None): return os.path.join ...
windows大多数的弹窗提示内容是可以复制的（我们主要用于报错内容复制粘贴去百度）
现在以记事本保存时候的弹窗为例,用鼠标点击弹窗的任意位置,然后Ctrl+C,然后在新的记事本中可以粘贴这个提示内容了.如下图粘贴效果 1.大多数弹窗适用 2.主要用于把"报错内容" ...
如何将Excel中一列内容拆分成两列？
如何将Excel中一列内容拆分成两列? 目录如何将Excel中一列内容拆分成两列? 1.例如:将下表中B列一月销售中计划与实际销售数量拆分成两列 2.首先在B列后插入一空白列,即选中C列鼠标右键点击 ...
下拉菜单显示隐藏html,根据在下拉列表中选择的内容隐藏和显示HTML元素
我的网站是在ASP classic - VBScript中创建的(不是我的选择,也是我之前没有过的语言).我试图在其中创建一个网页:下拉菜单显示了基于第一个选择内容的额外下拉菜单.我正在尝试使用Jav ...
ubuntu中使用root权限复制粘贴文件
ubuntu中使用root权限复制粘贴文件方法一第一步:打开终端,在命令行里输入sudo nautilus 第二步:输入你的用户的密码第三步:在弹出的窗口中打开需要操作的目录第四步:把你所需要 ...
如何在Excel中选择单元格时高亮显示行和列
在Excel中,选择单元格时高亮显示行和列的方法如下: 选择要高亮显示的单元格在"开始"选项卡中,单击"格式"命令按钮在弹出的菜单中选择"行和列& ...

VBA，excel中选择特定内容复制粘贴

VBA，excel中选择特定内容复制粘贴相关推荐

最新文章

热门文章