VBA如何實現條件篩選並根據篩選列的不同內容來填充其他列

2022-03-24 00:46:33 字數 1934 閱讀 2173

1樓:electree樹

首先從第二行開始遍歷 i 列所有單元格

如果單元格內有紅字

判斷該行a列單元格的值,如果前三個字元是"lab"

然後我沒看懂啥叫d列單元格的前三個欄位?是指3個字元嗎?比如chemical就給他變成che然後填入c列?

如果a列是correct 或者 issue 該行c列單元格填home

然後我又沒看懂啥叫第三步保持第一步的篩選條件?意思是隻是提示一下第三步繼續對紅字i列所在行進行操作嘛?還是說需要讓sheet只顯示i列紅字的行?

我想知道**執行過後是否只顯示i列紅字的行,還是說只注重結果,有無篩選不重要。

由於使用了activesheet,所以使用的時候要注意保持需要操作的表單被啟用。

i列紅字,a列前三字元lab,c列等於d列前三字元

i列紅字,a列等於correct,c列等於home

i列紅字,a列等於issue,c列等於home

i列紅字,a列空,g列等於no or only,c列等於home

with thisworkbook.activesheet

for i = 2 to .usedrange.rows.count

if .cells(i, 9).font.colorindex = 3 then

if left(cstr(.cells(i, 1).value), 3) = "lab" then

.cells(i, 3).value = left(cstr(.cells(i, 4).value), 3)

elseif cstr(.cells(i, 1).value) = "correct" or cstr(.cells(i, 1).value) = "issue" then

.cells(i, 3).value = "home"

elseif cstr(.cells(i, 1).value) = "" and cstr(.cells(i, 7).value) = "no or only" then

.cells(i, 3).value = "home"

end if

end if

next i

end with

2樓:q我

寫**來處理吧!需要文件哦

excel如何根據單元格輸入的內容在另外一列不同 資料自動填充相應內容

3樓:李龍

=lookup(1,0/((a$2:a$999=d2)*(b$2:b$999=e2)),c$2:c$999)

用以上工式,同時滿足兩個條件提取所要的資料

4樓:匿名使用者

上圖表好理解點,文字表述不清excel問題

vba 怎麼選擇篩選的內容,比如我按條件篩選後,複製篩選的內容到另外一個**,

5樓:匿名使用者

private sub commandbutton1_click()sheets("tem").activate 'tem為原始**activesheet.autofiltermode = falsesheets("tem").

rows("1:1").selectselection.

autofilter '將原始**設為過濾狀態selection.autofilter field:=10, criteria1:

="<1000" '選擇過濾的位置,設定過濾的條件

sheets("tem").range("a1").currentregion.select '選擇過濾的內容

selection.copy sheets("sheet1").range("a1") '複製選擇的內容到目標**

end sub

6樓:匿名使用者

有一些用滑鼠可以簡單操作的**我們可以直接錄製,再修改

excel中如何這樣篩選並求和,如何篩選excel中特定行?

sumproduct left a1 a20,3 c20 b1 b20 求出c20的和。sumproduct left a1 a20,3 c25 b1 b20 求出c25的和。你問的 subtotal 9,b1 b20 的9是篩選後求和,上面兩個的函式比較好不用篩選直接求和,試試看吧。假定c25在a...

excel中用高階篩選怎樣實現多個條件的篩選

假設原始資料在a1 c100中,a1 c1是 語文 數學 英語 d2中輸入 min a2 c2 60 選中a1 c100,篩選,高階篩選,列表區域為a1 c100 可用滑鼠拖 勾選將篩選結果複製到其它位置,條件區域為d1 d2 d1中空著不輸入 複製到,後面 輸入一個單元格地址,比如g1,確定,就行...

Excel2019如何多列篩選統計

高階篩選 在工作表中對 本息 和 存期 進行高階篩選。篩選條件為 本息 20030 並且 存期 3 或者 存期 5 條件區域存放在a16開始的單元格區域,篩選結果存放在a20開始的單元格區域。操作方法如下 將sheet4工作表重新命名為 高階篩選 填寫篩選條件。將欄位名 本息 存期 複製到a16開始...