返回列表 上一主題 發帖

[發問] 如何比對資料後將不同之數據於新增sheet上

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-8 10:29 | 顯示全部帖子

[發問] 如何比對資料後將不同之數據於新增sheet上

Dear 各位達人 :
    小弟有二個sheet的資料,互相比對後,將相同的維持原值,不相同的則以"0"取代,程式有點問題,煩請各位達人幫忙解決小弟的疑惑,感恩!
  1. Option Explicit
  2. Sub test1()
  3.     '測試資料E_Data01 / E_Data02工作表
  4.     Dim myRng1 As Range
  5.     Dim myRng2 As Range
  6.     Dim myCell1 As Range
  7.     Dim myCell2 As Range
  8.     Dim mySht  As Worksheet
  9.     Dim i      As Long
  10.     With Worksheets
  11.         '指定抓取來源範圍與鍵值欄
  12.         Set myRng1 = .Item("E_Data01").Range("A1").CurrentRegion.Columns(1)
  13.         Set myRng2 = .Item("E_Data02").Range("A1").CurrentRegion.Columns(1)
  14.         Set mySht = .Add(After:=.Item(.Count))  '工作表的新增
  15.     End With
  16.     i = 0
  17.    
  18.     For Each myCell1 In myRng1.Cells
  19.         For Each myCell2 In myRng2.Cells
  20.             If myCell1.Value = myCell2.Value Then
  21.                 i = i + 1
  22.                         myCell1.EntireRow.Copy mySht.Cells(i, 1)
  23.                 Else
  24.                         myCell2.EntireRow.Copy mySht.Cells(i, 1)
  25.             End If
  26.         Next
  27.     Next
  28.     Set myRng1 = Nothing                '物件的釋放
  29.     Set myRng2 = Nothing
  30.     Set myCell1 = Nothing
  31.     Set myCell2 = Nothing
  32.     Set mySht = Nothing
  33. End Sub
複製代碼
sheet相同內容列於新增sheet上_20121108.zip (17 KB)
收藏 分享

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
2#
發表於 2012-11-8 14:03 | 顯示全部帖子
回復 2# Hsieh


    感謝版主僅用這麼短的程式即解決了小弟的問題,另程式中有一行,小弟不是很了解,關於.[A1].Resize(UBound(ar, 1), UBound(ar, 2)) = ar

'Resize(Rowsize,columnsize)調整指定的範圍,傳回Range物件,該物件代表調整後的範圍
'UBound(Arrayname,dimension),傳回Long值,表示指定陣列某維最大可使用的陣列索引

為什麼Resize:Rowsize就設定為1維,而Columnsize就必須設定為2維呢?

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題