返回列表 上一主題 發帖

[發問] 篩選後不隱藏

[發問] 篩選後不隱藏

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

本帖最後由 singo1232001 於 2021-7-13 11:21 編輯

回復 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.重新篩選

test.zip (9.62 KB)

TOP

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

TOP

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


請測試看看,謝謝

test1.zip (21.47 KB)

TOP

回復 4# samwang
謝謝大大幫忙

TOP

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

TOP

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


請測試看看,謝謝

test2.zip (26.5 KB)

TOP

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

謝謝指教 活頁簿1.zip (16.09 KB)
敏而好學,不恥下問

TOP

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

TOP

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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題