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函式比較好
如何將iPhone複製的內容貼上到Mac
handoff是蘋果在os x 10.10 yosemite系統中新增的一個酷炫的功能，開啟這個功能之後，使用者可以在mac上對ipad和iphone進行操作，比如能夠編寫iphone上未完成的郵件，並且可以在mac上開啟iphone的熱點等等。而在macos sierra和ios10中，蘋果將ma...
excel中如何將符合條件的單元格內容合併至單元格中
1 首先在電腦中開啟excel之後，匯入一個 檔案。在需要合併的單元格內容後面輸入分隔符號。2 然後選擇單元格，輸入phonetic函式，如下圖所示。3 接著滑鼠直接框選想要合併的內容，分隔符也要框選上。4 最後敲電腦上的回車鍵，就合併到一個單元格了，如下圖所示就完成了。textjoin if e ...
如何將excel的列內容進行互換
所需要的 抄工具 excel 將excel的列襲內容進行互換的方法 bai開啟需要處理的excel du，找到zhi需要換行的兩列數dao據。選中其中的一列資料。此時滑鼠是 十 字形。按住shift鍵 滑鼠左鍵，此時在excel 中的滑鼠形狀會發生變化。拖動滑鼠，此時注意在 介面處會出現一個虛線，這...