samwang

回復 19# wang077

請再測試看看，謝謝

Sub 更新2()
Dim Arr, T, T2, i&
If Sheets(1).FilterMode Then Sheets(1).ShowAllData
Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))
For i2 = 3 To UBound(Arr2)
    T2 = Arr2(i2, 1) & Arr2(i2, 3) & Arr2(i2, 6)
    For i = 1 To UBound(Arr)
        T = Arr(i, 1) & Arr(i, 3) & Arr(i, 6)
        If T = T2 Then
            Sheets(2).Range("h" & i2 & ":bq" & i2).Copy Sheets(1).Range("h" & i)
        End If
    Next
Next
End Sub

samwang

回復  samwang
samwang 大大
測試結果
工作表1"A2"資料是1."A3"是3.複製工作表2"A2"=2."A3"=3無誤

清 ...
BV7BW 發表於 2021-7-14 14:34

不好意思，真的辛苦您的測試且回饋問題，後學真的有看但不太了解問您的問題
我自己猜想如何判定是否為新增問題，T = Arr(i, 1) & Arr(i, 3)  'A欄 + C欄當作key
有不一樣就複製到另一個表格，可以自己改看看，不知是否有解到您的問題，謝謝。

wang077

回復 21# samwang
可以了，真的非常感謝

BV7BW

回復 22# samwang
samwang 大大 你好
謝謝你教導感謝你
我在理解
非常謝謝你

wang077

回復 21# samwang
對了，大大
我把Sheet1，Sheet2重新命名的話
程式碼部分要怎麼改?
昨天試了一下，改完都會有錯

samwang

回復  samwang
對了，大大
我把Sheet1，Sheet2重新命名的話
程式碼部分要怎麼改?
昨天試了一下，改完都 ...
wang077 發表於 2021-7-15 08:26

需修改如下，謝謝

Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))

wang077

回復 26# samwang
大大，我又有新麻煩了
我增加一個欄位後，現在要把篩選完的資料查詢過去sheet2有問題了
另外我想請問，我若想把篩選完A、B、C、D、F欄的資料(sheet1)丟進textbox裡有辦法嗎
test.zip (44.6 KB)

下載次數: 3

2021-7-15 12:03

wang077

回復 26# samwang
無解嗎?

samwang

回復  samwang
大大，我又有新麻煩了
我增加一個欄位後，現在要把篩選完的資料查詢過去sheet2有問題了
...
wang077 發表於 2021-7-15 12:03

不太了解您的需求，我寫的如附件，如有其他不太符合請自行在修改，謝謝

wang077

回復 29# samwang
非常感謝大大
大致上都是我需要的，我再把部分修改即可