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樓：
**如下(詳見附件)
vba刪除excel資料，vba中怎麼清空工作表中的資料
對於刪除重複資料，excel 2007中有一個功能可以刪除，不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱，在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...
EXCEL資料問題用VBA處理
終於弄明白你的意思了。修改一個通用的 sub 一次的數 dim arr dim ir x y i dim k t t1 set d createobject scripting.dictionary ir range a65536 end xlup rowarr range a1 a ir valu...
EXCEL中用邏輯函式的問題，EXCEL表格裡面邏輯函式的使用
假定三科資料在abc列，平均分在d1,e1,f1 d2 and a2 d 1,b2 e 1,c2 f 1 下拉 假設你的平均分為65，abcde列依次是姓名 科目1 科目2 科目3 是否均超過平均分，則 e2 if countif b2 d2,65 3,true false 向下填充即可 excel...