帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

1^# 跳轉到 »

發表於 2012-10-13 14:22 | 只看該作者

資料置換

各位達人又有問題了,煩請幫忙一下
問題如下
工作表1
A
1 1-36
2 2-37
3 3-39
工作表2
A
1 1-39
2 3-40

想把工作表1的A3 3-39換成工作表中的A2的3-40
程式如下:
N = Worksheets("工作表3").Cells(Rows.Count, "a").End(xlUp).Row
k4 = Worksheets("工作表3").Cells(N, 1)
P = Worksheets("工作表1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
K5=K4
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!

TOP

modelcrazyer

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

2^#

發表於 2012-10-13 21:36 | 只看該作者

程式如下:
N = Worksheets("工作表2").Cells(Rows.Count, "a").End(xlUp).Row
更正原來的程式
k4 = Worksheets("工作表2").Cells(N, 1)
P = Worksheets("工作表1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
K5=K4
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!

TOP

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兔年全勤獎章

3^#

發表於 2012-10-14 07:42 | 只看該作者

回復 2# modelcrazyer
set 設定變數為物件

set k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
K5.value=K4

複製代碼

TOP

modelcrazyer

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

4^#

發表於 2012-10-14 08:32 | 只看該作者

多謝您的回覆,
但是好像用xlPart沒法比對耶!!

TOP

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兔年全勤獎章

5^#

發表於 2012-10-14 09:00 | 只看該作者

回復 4# modelcrazyer
1# 說:
工作表1的A3 3-39換成工作表中的A2的3-40
程式如下:
N = Worksheets("工作表3").Cells(Rows.Count, "a").End(xlUp).Row
k4 = Worksheets("工作表3").Cells(N, 1)
P = Worksheets("工作表1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart) '你的用意何在

TOP

modelcrazyer

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

6^#

發表於 2012-10-14 10:19 | 只看該作者

謝謝.本來是想用模糊比對的方式來找到相似值,然後取代的!!
不過,但是發現好像不行這樣!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 246
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章