程式修改

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

modelcrazyer