1樓:匿名使用者
sub aa()
dim arr1, arr2, i%, j%, k%, r%
arr1 = range("g1:l6")
if [g65536].end(xlup).row mod 6 <> 0 and [g65536].end(xlup).row < 12 then
msgbox "資料有誤請檢查"
exit sub
end if
for r = [g65536].end(xlup).row to 7 step -6
arr2 = range(cells(r - 5, 7), cells(r, 12))
for i = 1 to ubound(arr1, 2)
for j = 1 to ubound(arr1)
if arr1(j, i) <> arr2(j, i) then
range(cells(r - 5, 7), cells(r, 12)).entirerow.delete
exit for
end if
next
next
set arr2 = nothing
next
end sub附件是個例子,你可以直接把資料放到附件裡,然後執行巨集aa,記得由於你的陣列是6行的,所以總資料行數必須是6的倍數,否則會提示資料有誤。
2樓:明均
這個不難,不過你的意思我還有點不太理解,我理解為 g1:l6是乙個 6*6的矩陣,以後都是6*6的矩陣區域作判斷,如果不同就刪除那6*6包括的矩陣行,我有2個問題必須明確:
1、矩陣中是否有公式或引用等函式?(如果是純數字就簡單了)
2、如果矩陣中是函式,留下後是否一定保留要保留原公式?
由於你一直沒有追問,我給你寫了乙個思路,簡潔易懂,你參考著增加乙個迴圈即可實用
sub aaa()
'on error resume next
dim a, i, ii
for ii = 1 to 6
for i = 1 to 6
if sheet1.cells(i, ii + 6) = sheet1.cells(i + 6, ii + 6) then
a = a + 1
end if
next i
next ii
if a = 36 then
i = i + 6
else
sheet1.rows(i + 1 & ":" & i + 7).delete
end if
end sub
excel 矩陣 篩選重複項
3樓:匿名使用者
你要得到什麼結果?是這些重複的資料還是它們在矩陣中的位置,並且這些結果怎樣顯示?
行是無法篩選的,可以要用兩種方法來實現。
如果你知道是什麼資料重複且只有這乙個值,用查詢就可以。ctrl+f,輸入要查詢的內容,全部查詢。
如果不是上述情況,要用公式把值(可以是重複的,也可以是不重複的,還可以是全部的值只保留不再重複的)返回到另乙個區域,所以我才有前面的問題。
4樓:雨兔兔
以excel2007為例,
如果只是想查出重複值的話,可以把資料全選上,然後選「開始--樣式--條件格式--突出顯示單元格規則--重複值」,然後選擇一種顏色,所有重複值都會以你設定的顏色顯示
excel 如何求行列式不相同的矩陣
5樓:
因為a逆 為4行2列b為4行3列,無法相乘。
excel 怎樣用vba**實現自動查詢重複行並刪除
6樓:匿名使用者
字典 createobject("scripting.dictionary")
我的一段**,供參考。
set d = createobject("scripting.dictionary")
for each rng in worksheets("原始表").range("c1:c" & rcount)
if not d.exists(rng.value) and worksheets("原始表").
cells(rng.row, 1) = 2 then d.add rng.
value, ""
next
worksheets("支路模組矩陣").range("b1").resize(1, d.count) = d.keys
set d = nothing
7樓:匿名使用者
選定要查詢的列,點資料,刪除重複項
8樓:匿名使用者
sub www()
dim x%, y%
x = 1
do while cells(x, 1) <> ""
y = x + 1
do while cells(y, 1) <> ""
if cells(x, 1) = cells(y, 1) then rows(y & ":" & y).delete
y = y + 1
loop
x = x + 1
loop
end sub
如何採用excel去掉矩陣中對角線上的值
9樓:匿名使用者
在矩陣所在區域內,定義條件:
相對區域左上角的行號差與列號差相等
符合條件的是主對角線的元素,取為0
不符合的,不變。
注:利用row()與column()函式定位。
如何使用excel表在5*5的矩陣中隨機生成1-25之間的隨機數 不重複
10樓:
選擇乙個5×5的區域,如a1:e5,在輸入欄輸入=randbetween(1,25)
按ctrl+回車結束公式輸入
但要得到不重複的資料,且隨機,可能要費點事了
11樓:
複製如下**到vba中,執行即可
public sub gen()
dim i as integer
dim j as integer
dim k as integer
dim a(25) as integer
a(0) = int(rnd() * 25) + 1for i = 1 to 24
ll:k = int(rnd() * 25) + 1for j = 1 to i - 1
if a(j) = k then goto llnext j
a(i) = k
next i
for i = 1 to 5
for j = 1 to 5
cells(i, j) = a((i - 1) * 5 + (j - 1))
next j
next i
end sub
12樓:匿名使用者
不重複的話,只有用vba去生成了
怎樣使用excel產生不重複的資料
在a1 a2分別中輸入0 1,選中a1 a2,下拉填充到a301在位址列輸入b1 b301回車 輸入 rand ctrl enter 在d1中輸入 a1選中d1,下拉填充到d50。選中b列含有數值的單元格 點選常用工具條上的 公升序排序 或 降序排序 按鈕 d1 d50顯示的50個數就是你要的結果。...
excel提取不重複的數值,如何在EXCEL表中提取不重複項
在vba中自定義乙個函式來解決 public function a列隨機5個數 a列隨機5個數 for i 1 to 5 t trim cstr cells 1 int rnd 10 1 while instr a列隨機5個數,t 0 t trim cstr cells 1 int rnd 10 1...
excel中找到兩列中不重複的姓名
在c1輸入 if countif a a,b1 1,不重複專案 回車,確定,然後使用拖動控制代碼將公式拖動到同b列一樣長即可,有提示的專案篩選複製就是了。請發到124820924 qq.com 假設a2 a10為姓名,b2 b13為姓名在c2單元格輸入公式 sumproduct b2 a 2 a 1...
sql查詢不重複的記錄,SQL查詢不重複的記錄
select c.from tb as c,select a.productname,a.producttype from select productname,producttype,count productname as cc from tb group by productname,prod...
怎麼在Excel裡面刪除重複的內容
假設你的 庫存 位在sheet1在a列 現貨 位於sheet2的a列 如果你要對比現貨與庫存是否相同則在sheet2的b1單元格輸入 countif sheet1 a a,a1 然後下拉填充,數值大於0的就是重複 如果你要對比庫存與現貨是否相同則在sheet1的b1單元格輸入 countif she...