Board logo

標題: 程式修改 [打印本頁]
作者: modelcrazyer    時間: 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
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!
作者: modelcrazyer    時間: 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
但是怎樣的沒法成功.請問錯在哪裡
謝謝!!
作者: GBKEE    時間: 2012-10-14 07:42

回復 2# modelcrazyer
set 設定變數 為物件
  1. set  k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
  2. K5.value=K4
複製代碼
作者: modelcrazyer    時間: 2012-10-14 08:32

多謝您的回覆,
但是好像用xlPart沒法比對耶!!
作者: GBKEE    時間: 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)   '你的用意何在
作者: modelcrazyer    時間: 2012-10-14 10:19

謝謝.本來是想用模糊比對的方式來找到相似值,然後取代的!!
不過,但是發現好像不行這樣!!
作者: Hsieh    時間: 2012-10-14 10:43

回復 6# modelcrazyer
以你1#的資料看來，2個工作表資料並沒有可用的XlPart能比對到的資料
問題請清楚敘述你的需求，從一個執行錯誤的代碼中是無法得知你想要的功能
請上傳檔案並說明你想要的結果
作者: modelcrazyer    時間: 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]
作者: GBKEE    時間: 2012-10-22 07:09

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

回復 8# modelcrazyer
1#資料置換  如Hsieh超版說:  問題請清楚敘述你的需求
所以附檔: 工作表1  只有你了解,請做個範列吧!
    且附檔 不見原詳細價目表
  1. Sub test2()
  2. Dim l, i, k, r, S As Integer
  3. '由詳細價目表轉過來項次最後一項
  4. l = Worksheets("原詳細價目表").Cells(Rows.Count, "b").End(xlUp).Row   
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)