VBA,excel中選擇特定內容複製貼上

2021-08-10 16:07:37 字數 1797 閱讀 7848

重點是這個: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

把填充的公式顯示的數值複製到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

織夢中選取特定的文章

注意 選取指定的文章,只能在arclist標籤裡,list是不能選取的,同時也沒有typeid field description 例子 所有只需在arclist裡加入idlist 373,387,277 表示呼叫id號為373,387,277的文件。field title 第二種 指定keywor...

css中選擇器

選擇器描述 attribute 用於選取帶有指定屬性的元素。attribute value 用於選取帶有指定屬性和值的元素。attribute value 用於選取屬性值中包含指定詞彙的元素。attribute value 用於選取帶有以指定值開頭的屬性值的元素,該值必須是整個單詞。attribut...

css中選擇符

1 基本選擇器 1.萬用字元 不建議使用 2.e 標籤 元素 也是我們之前型別選擇器 3.class名 類選擇器 4.id名 id選擇器 5.選擇器1,選擇11器2 群組選擇器 2 關係 層級 選擇器 1.e f 包含選擇器 e父元素,f後代元素,滿足f是e的後代,而且一定要f元素 2.e f 滿足...