返回列表 上一主題 發帖

程式修改

modelcrazyer

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

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

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
3#
發表於 2012-10-14 08:32 | 顯示全部帖子
多謝您的回覆,
但是好像用xlPart沒法比對耶!!

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
4#
發表於 2012-10-14 10:19 | 顯示全部帖子
謝謝.本來是想用模糊比對的方式來找到相似值,然後取代的!!
不過,但是發現好像不行這樣!!

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
5# 倒序看帖
打印
tT
發表於 2012-10-21 21:58 | 顯示全部帖子

程式修改

附件是我寫的程式
主要想達成以下的功能
1-10
1-11
1-12
1-13
當我刪除1-11時1-12和1-13會自動變成1-11和1-12
但是當我刪除1-10卻無法順利執行讓後面的項次遞補
想請問要怎麼改??

[attach]12843[/attach]

問題.rar (66.28 KB)

收藏 分享

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題