loyyee

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-10-8 01:12 | 顯示全部帖子

[發問] 如何比對出A/B欄重複及欠缺之數值

本帖最後由 loyyee 於 2011-10-15 09:11 編輯

數值比對.rar (9.97 KB) 請問如何比對出A/B欄重複及欠缺之數值?

A欄 B欄
A0001 A0001
A0002 A0002
A0003 A0003
A0003 A0004
A0005 A0004
A0007 A0006

A欄重複數值:A0003
A欄欠缺數值:A0004.A0006
B欄重複數值:A0004
B欄欠缺數值:A0005.A0007

樓主熱帖

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2011-10-8 09:36 | 顯示全部帖子

回復 2# luhpro

感謝解答，如果A/B欄數量不相等時會出現錯誤，請問該如何修改?

數值比對-Ans.rar (20.8 KB)

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2011-10-8 10:27 | 顯示全部帖子

回復 4# luhpro

感謝修改程式可以用了，要花點時間研究巨集。

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2011-10-8 11:35 | 顯示全部帖子

回復 6# oobird

感謝版主協助修改。

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2011-10-8 16:33 | 顯示全部帖子

回復 8# dechiuan999

感謝您熱心指導巨集可以用，但是有一些問題:
1.遇到數值中間有連續空白時，空白也會被抓到"重複數值"。
2.連續重複數值會都被抓出，抱歉這點我當初沒說清楚重複數值我只要抓一次就好。

數值比對-Ans2.rar (27.57 KB)

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2011-10-9 16:02 | 顯示全部帖子

回復 10# dechiuan999

您好程式可以用了!
但如果資料改變如附檔且上千筆會出現錯誤，勞駕您幫忙看看。

數值比對2.rar (65.37 KB)

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2011-10-9 20:15 | 顯示全部帖子

回復 12# Hsieh

可以用了，Hsieh感謝您指點!

TOP

loyyee

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2011-10-11 11:36 | 顯示全部帖子

回復 12# Hsieh

If s > 0 Then Cells(2, 9 + i).Resize(s, 1) = Application.Transpose(Ay): s = 0: Erase Ay 要改成
If s > 0 Then Cells(2, 10 - i).Resize(s, 1) = Application.Transpose(Ay): s = 0: Erase Ay

欠缺數值欄位才會對應到。

TOP