現在比如用vba來求解。
基本思路:創建壹個字典B,將B列的數據存儲在字典B中,遍歷數據列A,如果在字典B中不存在,則追加到列C中..在遍歷結束時,C列中的數據是A-B的結果..
表格初始數據如圖:
步驟1:創建壹個宏,並按如下方式編寫代碼:
子數據排除()
將我的標註為字符串
Dim I,J為整數
Dim b作為對象
Mys = "數據排除"
Set b = CreateObject("腳本。字典》)
床單(我的)。挑選
I = 2
Do While單元格(I,2)& lt;& gt" " '把這個單子放到字典裏。
m_key = Cells(I,2)
M_ITEM = I - 1
如果b不存在(m_key ),那麽
b.添加m_key,M_ITEM
如果…就會結束
I = I + 1
環
‘j = 2’記錄寫入列c的數據的最新行號。
I = 2
Do While單元格(I,1)& lt;& gt" " '從B列中排除A列數據,並將其存儲在c列中。
m_key =單元格(I,1)
如果b不存在(m_key ),那麽
Cells(J,3) = m_key
J = J + 1
如果…就會結束
I = I + 1
環
末端接頭
運行該宏後,結果如下所示: