[發問] 篩選後不隱藏

wang077

各位大大 假如我篩選A~C欄位，但我篩選完後面的資料有些會被隱藏
請問我要怎麼篩選完後不隱藏
test.zip (8.06 KB)

下載次數: 8

2021-7-13 10:21

singo1232001

回復 1# wang077
0.取消篩選
1.取消a:c所有的 合併儲存格
2.選abc全部欄位
3.ctrl+G     >    特殊     >    空格(K) (這時會把ABC所有空白都選起來了)
4.直接在上方"fx空白輸入處"    輸入=A1     >    同時按下ctrl+enter 失敗就要重做
5.abc欄位全選    >    複製    >    原處貼上(值123)
6.把a1:c2多餘的機種品名料號刪除
7.重新篩選

wang077

回復 2# singo1232001
感謝大大幫忙
另外，我現在若想要把篩選完的結果複製去Sheet2
要怎麼寫
test.zip (11.44 KB)

下載次數: 4

2021-7-13 11:47

samwang

回復  singo1232001
感謝大大幫忙
另外，我現在若想要把篩選完的結果複製去Sheet2
要怎麼寫
wang077 發表於 2021-7-13 11:47

請測試看看，謝謝

wang077

回復 4# samwang
謝謝大大幫忙

wang077

回復 4# samwang
大大，我如果要把複製過去的資料(Sheet2)跟Sheet1的資料同步呢，我找不到相關的參考資料
例如我複製過去後，我在7/9日後新增資料，同時希望Sheet1的資料也能同步

samwang

回復  samwang
大大，我如果要把複製過去的資料(Sheet2)跟Sheet1的資料同步呢，我找不到相關的參考資料
...
wang077 發表於 2021-7-13 16:01

請測試看看，謝謝

BV7BW

回復 4# samwang
samwang 大大 你好
同樣問題請教
工作表1中"A2:A300"資料.複製至工作表2中"A2"開始貼上.如工作表2"A2"已有資料則往下貼上

謝謝指教 活頁簿1.zip (16.09 KB)

下載次數: 3

2021-7-14 08:03

wang077

回復 7# samwang
大大，好像反向了，我的意思是要在Sheet2新增資料，同步到Sheet1
這好像是Sheet1新增資料，同步到Sheet2了

samwang

回復  samwang
samwang 大大 你好
同樣問題請教
工作表1中"A2:A300"資料.複製至工作表2中"A2"開始貼上. ...
BV7BW 發表於 2021-7-14 08:04

請試看看，謝謝

Sub test()
Dim Arr, xD, T, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([工作表2!N1], [工作表2!a65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & Arr(i, 3): xD(T & "") = i
Next
Arr = Range([工作表1!N1], [工作表1!A65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & Arr(i, 3)
    If xD.Exists(T & "") = False Then
        n = [工作表2!a65536].End(3).Row + 1
        Sheets(1).Range(Cells(i, 1), Cells(i, 14)).Copy Sheets(2).Range("a" & n)
    End If
Next
End Sub