返回列表下一主題上一主題發帖

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

cmo140497

中學生 Rank: 2

帖子: 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"取代,程式有點問題,煩請各位達人幫忙解決小弟的疑惑,感恩!

Option Explicit
Sub test1()
'測試資料E_Data01 / E_Data02工作表
Dim myRng1 As Range
Dim myRng2 As Range
Dim myCell1 As Range
Dim myCell2 As Range
Dim mySht As Worksheet
Dim i As Long
With Worksheets
'指定抓取來源範圍與鍵值欄
Set myRng1 = .Item("E_Data01").Range("A1").CurrentRegion.Columns(1)
Set myRng2 = .Item("E_Data02").Range("A1").CurrentRegion.Columns(1)
Set mySht = .Add(After:=.Item(.Count)) '工作表的新增
End With
i = 0
For Each myCell1 In myRng1.Cells
For Each myCell2 In myRng2.Cells
If myCell1.Value = myCell2.Value Then
i = i + 1
myCell1.EntireRow.Copy mySht.Cells(i, 1)
Else
myCell2.EntireRow.Copy mySht.Cells(i, 1)
End If
Next
Next
Set myRng1 = Nothing '物件的釋放
Set myRng2 = Nothing
Set myCell1 = Nothing
Set myCell2 = Nothing
Set mySht = Nothing
End Sub

複製代碼

sheet相同內容列於新增sheet上_20121108.zip (17 KB)

樓主熱帖

cmo140497

中學生 Rank: 2

帖子: 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

靜思自在 : 改變自己是自救，影響別人是救人。

返回列表下一主題上一主題

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

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

樓主熱帖

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

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