1樓：陽光上的橋
**寫好了，測試通過了：
option explicit
sub ***()
dim arr, arr1, arr2, arr3
dim i, j
arr1 = array(1, 0, 3, 6, 9)
arr2 = array(1, 4, 7)
arr3 = array(2, 5, 8)
i = [j65536].end(xlup).row
j = i
while i >= 1
arr = array(cells(i, "j").value, cells(i, "k").value, cells(i, "l").
value, cells(i, "m").value, cells(i, "n").value, cells(i, "o").
value)
if chk(arr, arr1) >= 2 and chk(arr, arr2) >= 2 and chk(arr, arr3) >= 2 then
range("r" & j & ":w" & j) = arr
j = j - 1
end if
i = i - 1
wend
end sub
function chk(arr1, arr2) as integer
dim j, i, n
n = 0
for i = lbound(arr1) to ubound(arr1)
for j = lbound(arr2) to ubound(arr2)
if arr1(i) = arr2(j) then
n = n + 1
end if
next j
next i
chk = n
end function
注意**中的這一句：
if chk(arr, arr1) >= 2 and chk(arr, arr2) >= 2 and chk(arr, arr3) >= 2 then
我是理解三組數中至少含有兩個的的，如果你要求剛好兩個，那麼需要把》=2改為=2
2樓：
**如下(詳見附件)
excel如何提取符合兩個條件的多個資料
1 第一步 開啟需要提取同時滿足兩個條件資料的excel 2 第二步 在 右側輸入提取的兩個條件 語文 80，數學 80。3 第三步 選擇選單欄 資料 中的 高階 選項。4 第四步 列表區域選擇全部資料。5 第五步 條件區域選擇我們設定好的兩個條件。6 第六步 勾選上 將篩選結果複製到其他區域 單擊...
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
excel 如何 鏈結 符合條件 的單元格 ？
設表一的水果名在a列，且不間斷，表二 shteet2 的水果名在任意單元格。則可向第乙個工作簿表一新增如下 實現你的目的 在表名theet1處按右鍵選檢視 進入vba 介面，把以下 貼上入空白框。private subworksheet selectionchange byvaltarget asr...