兩個excel表,結構相同,請問怎麼用VB比較兩個表的內容是否一致,並自動生成第三張表返回相同或不相同

2022-10-29 02:50:44 字數 3153 閱讀 4551

1樓:太極健

sub test()

dim arr, brr, crr

dim x%, y%

arr = sheet1.range("a1").currentregion

brr = sheet2.range("a1").currentregion

redim crr(1 to ubound(arr), 1 to ubound(arr, 2))

for x = 1 to ubound(arr)

for y = 1 to ubound(arr, 2)

if arr(x, y) = brr(x, y) then

crr(x, y) = "相同"

else

crr(x, y) = "不相同"

end if

next y

next x

sheet3.range("a1").resize(ubound(crr), ubound(crr, 2)) = crr

end sub

2樓:匿名使用者

假設你的表1資料在a1:a3表2的資料在c1:c3然後你選中同樣大小的單元格個數,根據你給的是6格然後輸入=if(exact(a1:a3,c1:c3),"相同", "不相同")

最後 別直接回車,得ctrl+shift+enter結果如下

a aa a bbb bb b bbc cc d cc不相同 不相同

相同 相同

不相同 不相同

如有疑問可以給我發郵件[email protected]

3樓:天蠍

不難呀。應該是用vba吧?其實用函式都能實現了。

在表3的a1輸入公式:=if(sheet1!a1=sheet2!a2,"相同","不相同")

在表3的b1輸入公式:=if(sheet1!b1=sheet2!b2,"相同","不相同")

下拉表3的a1單元格自動填充公式到其他a列的單元格,同理下拉表3的b1單元格自動填充公式到其他b列的單元格。

如何vb讀取兩個格式相同的excel**進行比較?

4樓:周海濤

一定要用 vb 嗎?其實可以很簡單

既然兩個表一樣,新建一個工作簿,sheet1 sheet2 兩頁,假設要檢查的的資料在a1格

在sheet1的a1 中輸入=if(abs([ex1]sheet1!$a$1-[ex2]sheet1!$a$1)>sheet2!a1,"貨物丟失!","")

在sheet2 中的a1輸入x

開啟**,更新資料,一步瞭然。

5樓:匿名使用者

用ado,連線兩個excel,放在兩個資料集裡,按條件,對兩個資料集操作比較就行了。

6樓:匿名使用者

用公式就完全可以實現,何必用vba?

用if篏套兩個vlookup,不行嗎?

亮一下你的表結構

怎樣使用vb編寫程式把兩個excel內容進行對比

7樓:匿名使用者

這種問題很有深度,我看很難有人能回答,不過我也很想知道

vb怎麼實現兩個excel之間的資料對比

8樓:匿名使用者

sub 資料對比()

dim i as integer

dim j as integer

for i = 2 to 95 '表1身份證欄位是2行到95行

for j = 3 to 258 '表2身份證欄位是3行到258行

if sheets("表1").cells(i, 17) = sheets("表2").cells(j, 8) then '表1身份證是在17列,表2身份證在第8列

sheets("表1").cells(i, 18) = "已存在" '存在時進行標記,並在18列寫已存在

end if

next j

next i

end sub

9樓:更豐富的畫

不清楚您指的「差異」是什麼?如果是差別,可以用以下方法:

1、可以用條件格式,將兩組有差別的資料,用不同顏色標記出來;

2、可以將兩組資料做減法,結果不為0,則表示兩組資料有差別;

3、用函式、條件進行判斷,判斷兩者內容是否一致;

如果差異是指的兩組資料,在同類顯著水平上,是否有顯著性的差異,可以採用方差分析法。

用vb抽取兩個excel表內相同資料 100

10樓:陽光上的橋

excel只能存104萬多一點點,110萬是不能一列存下的。

由於沒有其它的身份證號碼等主鍵列,兩個表都僅有一列數,實際上可以高階篩選來實現,在一個表中篩選出,在另外一個表上也存在的內容,篩選後的資料複製到新表即可。

請教 如何用vb語言對比兩張excel表的資料 50

11樓:匿名使用者

資料表是什麼結構?要如何標記?是單純查詢重複嗎?

遍歷的話至少要篏套雙層迴圈,外層用於sheet1,內層用於sheet2。

如果只是想找重複,可以在右邊加輔助列,把要比對的資料串成文字串,然後不論用公式還是vba都會好操作一些。

一共多少列?每一行是一條資料嗎?請告之

12樓:匿名使用者

能補充一下嗎?一樣的資料如何做標記?

vb.net中實現兩張excel表資料對比

13樓:匿名使用者

因為身份證是唯一的,是否可以通過先把兩個excel中的身份證列都匯入程序序中的兩個陣列a(對應表1),b(對應表2)中,然後提取b中的元素在a中查詢,如果存在,則記錄b中該元素在a中對應的index,最後根據index在表1中讀取index所在行,即完成。這樣的話,涉及到得資料量是最少的,應該耗時不多。

注:因為要記錄b中元素在a中對應的index,所以b可設定為二維數陣列,或者建立一個和b大小一樣的陣列c,c中每個元素都初始化為-1,如果b中元素在a中對應,則把index置入c。

兩個EXCEL表A和B

lookup 1,0 a表 a 2 a 1000 a2 a表 b 2 b 1000 b2 a表 c 2 c 1000 假設你表a與表b的資料分別對應在a b及c列,且都是從第二行開始,則在表b中單元格c2輸入上公式,回車,下拉 假設衣服名稱在a列,在b列,a表名為sheet1,b表名為sheet2 ...

怎麼求出excel同列中兩個相同數字之間的間隔的行數?比如圖

match true,a2 a 12 a1,1 ctrl shift enter,下拉 excel 如何統計一列中最近的兩個相同數字的間隔 b2公式下拉 if countif a 1 a2,a2 2 a2 row a1 lookup 1,0 a 1 a1 a2 row 1 1 如果用的是excel ...

求兩個EXCEL相加的公式,兩個Excel表格之間怎麼相加減 計算兩個表格的差額???用什麼公式??? 具體步驟怎麼的

求公式加成1 5 10 15 20,即a1至t1單元格區域每隔4列相加最後加上第一列 sumproduct mod column a1 t1 5 0 1,a1 t1 a1 公式二,隔行相加的公式,與公式一類似,但是是隔行相加 即a3至a22單元格區域每隔4行相加最後加上a3單元格 sumproduc...