返回列表 上一主題 發帖

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

nyboy

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-2-4 13:49 | 只看該作者

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

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

  4. '來源資料的欄位數
  5. k = Sheets("sheet1").Cells(104689, 3).End(xlUp).Row

  7. '比較資料的欄位數
  8. p = Sheets("vendorcode").Cells(104689, 1).End(xlUp).Row



  12. For n = 2 To k
  13.   C = 1
  14.        For m = 1 To p
  15. '要是來源資料有哪一欄和比較資料不同，就列在比較結果資料表comp_rslt中

  17.   If InStr(Sheets("sheet1").Cells(n, 3), Sheets("vendorcode").Cells(m, 1)) = 0 Then
  18.         Sheets("comp_rslt").Cells(C, 1).Value = Sheets("sheet1").Cells(n, 3)

  20.               


  23.    End If
  24.     C = C + 1
  25.     Next
  26.   Next

  28. End Sub
複製代碼

test_compare.rar (7.78 KB)

test_compare

收藏 分享

GBKEE

帖子
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
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar As Variant, E As Range, St As String
  4.     With Sheets("vendorcode")
  5.         Ar = Application.Transpose(.Range("a1", .Range("a1").End(xlDown)).Value)  ' Application.Transpose 轉置
  6.         Ar = "," & Join(Ar, ",") & ","    '一維陣列轉為字串
  7.     End With
  8.     With Sheets("SHEET1")
  9.         For Each E In .Range("C2", .Range("C2").End(xlDown))
  10.             If InStr(Ar, "," & E & ",") = 0 Then St = St & "," & E  '記錄在字串中
  11.         Next
  12.     End With
  13.     If St <> "" Then
  14.         Ar = Split(Mid(St, 2), ",")         '字串轉為一維陣列
  15.         Sheets("comp_rslt").Range("A1").Resize(UBound(Ar) + 1) = Application.Transpose(Ar)
  16.     End If
  17. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

nyboy

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

論壇贊助勳章
3#
發表於 2018-2-4 16:36 | 只看該作者
可以了 太感謝版主!!

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題