[發問] 不同資料比字串比較

請問有前輩們能幫我解答一下嗎？
小弟是程式(VBA)新手，目前想寫一個小程式來檢查來源資料是否有出現例外字串
請見附件test_compare.rar。
想比對Sheet1 的 C 欄字串是否有跟vendorcode上面任何一個字串都不符合的，要是有不符合的就寫在comp_rslt資料表。
目前sheet1的C11與C12都是應該被程式發現並印在comp_rslt的字串，但是執行之後都會印出任一個字串(不應該被印出來因為vendorcode上有)
請問是哪邊弄錯了呢可否給小弟一些提示，感謝！

Sub compare()
'
'來源資料的欄位數
k = Sheets("sheet1").Cells(104689, 3).End(xlUp).Row
'比較資料的欄位數
p = Sheets("vendorcode").Cells(104689, 1).End(xlUp).Row
For n = 2 To k
C = 1
For m = 1 To p
'要是來源資料有哪一欄和比較資料不同，就列在比較結果資料表comp_rslt中
If InStr(Sheets("sheet1").Cells(n, 3), Sheets("vendorcode").Cells(m, 1)) = 0 Then
Sheets("comp_rslt").Cells(C, 1).Value = Sheets("sheet1").Cells(n, 3)
End If
C = C + 1
Next
Next
End Sub

複製代碼

test_compare.rar (7.78 KB)

test_compare

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2018-2-4 15:02 | 只看該作者

回復 1# nyboy
試試看

Option Explicit
Sub Ex()
Dim Ar As Variant, E As Range, St As String
With Sheets("vendorcode")
Ar = Application.Transpose(.Range("a1", .Range("a1").End(xlDown)).Value) ' Application.Transpose 轉置
Ar = "," & Join(Ar, ",") & "," '一維陣列轉為字串
End With
With Sheets("SHEET1")
For Each E In .Range("C2", .Range("C2").End(xlDown))
If InStr(Ar, "," & E & ",") = 0 Then St = St & "," & E '記錄在字串中
Next
End With
If St <> "" Then
Ar = Split(Mid(St, 2), ",") '字串轉為一維陣列
Sheets("comp_rslt").Range("A1").Resize(UBound(Ar) + 1) = Application.Transpose(Ar)
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

nyboy

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN10
軟體版本: EXCEL2016
閱讀權限: 10
註冊時間: 2018-1-31
最後登錄: 2018-4-17

論壇贊助勳章

3^#

發表於 2018-2-4 16:36 | 只看該作者

可以了太感謝版主!!

TOP

[發問] 不同資料比字串比較

[發問] 不同資料比字串比較

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]