VBA如何將滿足條件的內容複製到另一列,求懂程式設計的大神幫幫忙!!跪求

時間 2021-09-04 02:27:19

1樓:陽光上的橋

滿足你要求的vba**如下:

option explicit

sub ygb()

dim i, j, x1, x2, i2, nx1 = cells(3, "n")

x2 = cells(4, "n")

i2 = 2 '下一個儲存結果的行

for i = 4 to cells(65536, "k").end(xlup).row

if cells(i - 2, "k") = x1 and cells(i - 1, "k") = x2 then

n = 0 '複製個數

for j = 1 to 10

if cells(i, j + 1) = x2 thenn = n + 1

cells(i2, j + 15) = x2end if

next j

if n <> 0 then i2 = i2 + 1end if

next i

end sub

2樓:匿名使用者

sub test()

set sh = thisworkbook.sheets(1)

aa = sh.range("n3").value

bb = sh.range("n4").value

rowcount = sh.[k10000].end(xlup).row

cc = 2

for i = 2 to rowcount

if sh.range("k" & i).value = aa and sh.range("k" & i + 1).value = bb then

for n = 2 to 11

if sh.cells(i + 2, n).value = bb then

sh.cells(cc, n + 14).value = sh.cells(i + 2, n).value

cc = cc + 1

end if

next

end if

next

end sub

請測試**!功能完全能實現你所說的要求

3樓:史詩傳承

sub filtfind()

dim hang as integer, arr(1 to 10), find as integer

hang = range("k1").end(xldown).row

for i = 2 to hang - 1

if cells(i, "k") = cells(3, "n") and cells(i + 1, "k") = cells(4, "n") then

find = find + 1

for j = 1 to 10

if cells(i + 2, j + 1) = cells(4, "n") then

arr(j) = cells(i + 2, j + 1)

else

arr(j) = empty

end if

next j

range("p1:y1").offset(find, 0) = arr

erase arr

end if

next i

end sub

用vba統計滿足條件的單元格的內容的個數,求懂程式設計的大神幫幫忙!跪謝!

4樓:黑光計劃

你的圖看不清楚。用文字表達你的意思。紅字看不清楚。

有excel vba qq群,你可以加入群去提問,好多這樣的qq群,而且看了你的**,感覺設計起來挺複雜。需要 十幾個陣列才行。

你到底想幹什麼呢。

如果你把這個釋出到 豬八戒**,估計10塊錢就可以有人幫你萬成這個任務。

關鍵你是得捨得花10元釋出任務。

豬八戒**是花錢僱人幫忙的**。

vba滿足條件設定情況下篩選資料的程式設計,請大神幫忙,小弟先謝了!

5樓:匿名使用者

第一、建議資料統計區只顯示想要統計的結果,多餘的一些空值一是沒必要顯示,二是查詢後寫入也會影響速度;

第二、為什麼不是統計符合條件區域條件的資料而是下一行呢?這樣,無論是從excel的篩選還是sql的查詢,都不利於查詢;(如果a列是唯一標識且是數字遞增,或者再新增一列id為數字的話,這個查詢也可實現)

第三、建議條件區域、和統計區域另放一個表,而資料區域單獨用一個表。

你想要的結果用sql語句查詢是最快的最簡單的方法,資料區域需要加上跟條件區域、統計區域一樣的標題欄。

如果這幾點都可以接受的話,我倒是中以試試。

請懂vba程式設計的大神幫忙啦!a列資料有漢字字母數字且順序雜亂。希望在b列中只儲存數字和字母

6樓:excel服務專家

sub test()

n = range("a65536").end(xlup).rowfor i = 1 to n

count = 0

newstr = ""

cell_len = len(cells(i, 1))for charcount = 1 to cell_lenchar = mid(cells(i, 1), charcount, 1)

if asc(char) > 0 thennewstr = newstr & charend if

next

cells(i, 2) = newstr

next

end sub

用vba統計滿足條件的資料的個數,求大神,

7樓:匿名使用者

sub mysub()

dim counta as integer

dim countb as integer

for i = 1 to range("b65536").end(xlup).row

if cells(i, 2).value = [o2] and cells(i + 1, 2).value = [o3] then

if cells(i + 2, "l").value = "a" then

counta = counta + 1

elseif cells(i + 2, "l").value = "b" then

countb = countb + 1

end if

end if

next

[q3] = counta

[r3] = countb

end sub

8樓:精銳小

用countif函式比較好

excel2019版如何將多個滿足條件的資料求和

sum a a b b 陣列公式,輸入完成後按ctrl shift enter結束 方括號 sum sumif a a,b b 2010可以用sumifs excel2010滿足條件1,並且滿足條件2或者條件3,求和!急! 褶子 如下圖所抄示,條件1 a列為1 條件2 b列或c列不為空bai 求滿d...

excel中如何將符合條件的單元格內容合併至單元格中

yty隨意 1 首先在電腦中開啟excel之後,匯入一個 檔案。在需要合併的單元格內容後面輸入分隔符號。2 然後選擇單元格,輸入phonetic函式,如下圖所示。3 接著滑鼠直接框選想要合併的內容,分隔符也要框選上。4 最後敲電腦上的回車鍵,就合併到一個單元格了,如下圖所示就完成了。 textjoi...

如何將VBA工程或模組獨立於Excel檔案儲存

魚木混豬喲 vba工程或模組,是無法脫離excel檔案儲存的,但是可以脫離執行這個工程的xls或xlsm檔案而儲存。儲存時選擇 載入項xla型別 的選項,即可儲存為.xla格式的檔案,如果在excel中啟用這個載入項,就可以在開啟的任意excel文件中使用這個vba工程。要維護它可以直接用excel...