程式修改

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

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

9^#

發表於 2012-10-22 07:09 | 只看該作者

本帖最後由 GBKEE 於 2012-10-22 07:10 編輯

回復 8# modelcrazyer
1#資料置換如Hsieh超版說: 問題請清楚敘述你的需求
所以附檔: 工作表1 只有你了解,請做個範列吧!
且附檔不見原詳細價目表

Sub test2()
Dim l, i, k, r, S As Integer
'由詳細價目表轉過來項次最後一項
l = Worksheets("原詳細價目表").Cells(Rows.Count, "b").End(xlUp).Row

複製代碼

Hsieh

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

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

8^#

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

回復 6# modelcrazyer
以你1#的資料看來，2個工作表資料並沒有可用的XlPart能比對到的資料
問題請清楚敘述你的需求，從一個執行錯誤的代碼中是無法得知你想要的功能
請上傳檔案並說明你想要的結果

學海無涯_不恥下問

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

7^#

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

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

GBKEE

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

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

6^#

發表於 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) '你的用意何在

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

5^#

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

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

GBKEE

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

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

4^#

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

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

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

複製代碼

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

3^#

發表於 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
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!

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

2^#

發表於 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
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!