VBA excel 判定相同的行

工作需要需要統計excel中相同的行資料，找了n種方法都不能解決。

sub samerow()

dim colnum as integer      '**列數
dim rownum as long        '**行數
dim i as integer
dim j as integer
dim k as integer
dim myrange as range
dim inputrange as range
with activesheet
colnum = myrange.columns.count
'msgbox "colnum：" & colnum
rownum = myrange.rows.count
'msgbox "rownum：" & rownum
'清空結果區域
for k = 1 to rownum     '遍歷row行
inputrange.cells(k, 1).value = ""
next k
'msgbox "清空完成"
for k = 1 to rownum     '遍歷row行
for i = 1 to rownum
if i <> k then      '排除自己
for j = 1 to colnum
if myrange.cells(i, j).value <> myrange.cells(k, j).value then
exit for
end if
next j
if j > colnum then
'msgbox "兩行相等k:" & myrange.cells(1, 1).row + k - 1 & ", i:" & myrange.cells(1, 1).row + i - 1     '兩行相等
'輸出相同行數
if (inputrange.cells(k, 1).value = "") then
inputrange.cells(k, 1).value = "相同行數：" & myrange.cells(1, 1).row + i - 1
else
inputrange.cells(k, 1).value = inputrange.cells(k, 1).value & "," & myrange.cells(1, 1).row + i - 1
end if
end if
end if
next i
next k
end with
end sub

提取兩檔案相同ID的行

file1的檔案如下所示 a rs1 b rs2 c rs4file2的檔案如下所示 a 0.170721 1.82031 0.0690841 rs1 b 0.0803412 1.01669 0.309605 rs2 c 0.21245 0.22964 0.81843 rs3 d 0.0707158...

查詢相同記錄的最大日期的行

假設有這樣一張門禁記錄表，姓名，打卡地點，和日期，乙個姓名可以有多個日期，那麼，怎樣查詢乙個姓名對應的最大日期的那一行記錄呢？以下介紹2種方法來實現。首先建立測試表 create table tablea names varchar 20 gateno int d date date insert ...

extjs中將相同的行值合併

合併單元格的函式，合併 內所有連續的具有相同值的單元格。呼叫方法示例 this.on loaddata this.onloaddata,this onloaddata function store 引數 grid 需要合併的 roworcol 合併行還是列,cols 需要合併的列 行合併的時候有效 ...