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...