返回列表 上一主題 發帖

[發問] 篩選後不隱藏

回復 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

TOP

回復  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
有不一樣就複製到另一個表格,可以自己改看看,不知是否有解到您的問題,謝謝。

TOP

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

TOP

回復 22# samwang
samwang 大大 你好
謝謝你教導感謝你
我在理解
非常謝謝你
敏而好學,不恥下問

TOP

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

TOP

回復  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))

TOP

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

TOP

回復 26# samwang
無解嗎?

TOP

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


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

test1.zip (45.89 KB)

TOP

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

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題