wang077

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-13 10:21 | 只看該作者

[發問] 篩選後不隱藏

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

test.zip (8.06 KB)

樓主熱帖

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-13 11:11 | 只看該作者

本帖最後由 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

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

3^#

發表於 2021-7-13 11:47 | 只看該作者

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

test.zip (11.44 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-7-13 14:07 | 只看該作者

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

請測試看看，謝謝

test1.zip (21.47 KB)

TOP

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

5^#

發表於 2021-7-13 15:12 | 只看該作者

回復 4# samwang
謝謝大大幫忙

TOP

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

6^#

發表於 2021-7-13 16:01 | 只看該作者

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

7^#

發表於 2021-7-13 20:35 | 只看該作者

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

請測試看看，謝謝

test2.zip (26.5 KB)

TOP

BV7BW

中學生 Rank: 2

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 225
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

8^#

發表於 2021-7-14 08:04 | 只看該作者

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

謝謝指教

活頁簿1.zip (16.09 KB)

敏而好學,不恥下問

TOP

wang077

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

9^#

發表於 2021-7-14 08:19 | 只看該作者

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

10^#

發表於 2021-7-14 11:14 | 只看該作者

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