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

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

   A    |   B
  id    |  公式列
  001   |   20
  002   |   11
  003   |    0

sheet2原始

   A   |   B        |     C
   id  |  公式列     |   数值列
  004  |   12       |     12
  005  |   17       |     17

sheet2宏后

   A     |   B         |     C
   id    |  公式列      |   数值列
  004    |   12        |     12
  005    |   17        |     17
  003    |    0        |      0

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

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

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

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

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

    Sheets("sheet2").Select
    ROW1 = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2").Copy
    Range("B2:B" & ROW1).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False

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

    Sheets("sheet2").Select
    ROW2 = Range("C" & Rows.Count).End(xlUp).Row
    Range(Cells(ROW2 + 1, 2), Cells(ROW1, 2)).Select
    Selection.Copy
    Range(Cells(ROW2 + 1, 3), Cells(ROW1, 3)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页