filter型態不符合

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-8-1 02:46 | 只看該作者

本帖最後由 n7822123 於 2020-8-1 02:48 編輯

回復 1# ssooi

因為你的Filter 用法錯啦~~

第1個參數要放入 "陣列"，第2個參數要放入 "字串"

初學者請善用 "F1" 來查用法

所以依你的程式 Filter(a,all(i)) 要改成 Filter(all,a)

剛好有個範例可以用Filter示範給你看，如下鏈結

http://forum.twbts.com/thread-8370-1-1.html

不過你的程式不只這個問題......

有不少語法錯誤，還有邏輯問題......

你的IF可能永遠進不去......進去了也會執行失敗

再加油吧!

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

3^#

發表於 2020-8-1 09:34 | 只看該作者

基本操作功能--篩選, 應可處理這個問題,
先使用錄製取得程式碼...研究下...

有問題再提~~

ssooi

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

4^#

發表於 2020-8-1 13:02 | 只看該作者

各位高手，真的盡力了~filter一直搞不定，用另外一種寫法，寫到這裡，不知道問題在哪，無法將整列複製到指定工作表的最後一欄，謝謝各位高手

Sub 迴圈1()
All = Array("三商", "遠東")
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
For i = 0 To UBound(All)
If Cells(r, 2) = All(i) Then
Rows(r).EntireRow.Copy
Sheets(All).Select
ActiveSheet.Paste
Exit For
End If
Next
Next
End Sub

複製代碼

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

5^#

發表於 2020-8-1 19:12 | 只看該作者

本帖最後由軒云熊於 2020-8-1 19:23 編輯

我也是新手順便練習一下不過這段好像哪裡怪怪的但我看不出來請大大們幫幫忙該如何修改感覺好像迴圈太多不必要的代碼好像很多 0.0
Public Sub 練習跨工作表陣列練習()
For x = 2 To Sheets.Count
Sheets(x).Cells.Clear
Sheets(1).Rows(1).Copy Sheets(x).Rows(1)
Next x
E = 2
A = Array("三商", "遠東", "信義")
K = Range(Cells(2, 1), Cells(2, 3).End(xlDown))
ReDim B(LBound(K) To UBound(K))
ReDim Preserve B(LBound(K) To UBound(K))
For x = 2 To Sheets.Count
For J = LBound(K) To UBound(K)
For I = LBound(A) To UBound(A)
If A(I) <> K(J, 2) Then E = 2
If A(I) = K(J, 2) Then
If Sheets(K(J, 2)).Cells(E, 1) <> "" Then E = E + 1
Sheets(K(J, 2)).Cells(E, 1) = K(J, 1)
Sheets(K(J, 2)).Cells(E, 2) = K(J, 2)
Sheets(K(J, 2)).Cells(E, 3) = K(J, 3)
E = E + 1
End If
Next I
Next J
Exit For
Next x
Erase A, K, B
End Sub

複製代碼

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

6^#

發表於 2020-8-1 19:50 | 只看該作者

剛才試著把 For x = 2 To Sheets.Count 迴圈刪除結果發現根本用不到 ........XD

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

7^#

發表於 2020-8-1 20:13 | 只看該作者

ReDim B(LBound(K) To UBound(K))
ReDim Preserve B(LBound(K) To UBound(K))
Erase B

這段也不用 ....XD

ssooi

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

8^#

發表於 2020-8-1 20:25 | 只看該作者

回復 5# 軒云熊

謝謝諸位高手
我成功了
謝謝!

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

9^#

發表於 2020-8-1 20:41 | 只看該作者

回復 8# ssooi

E = E + 1 這段也不用 .....XD 抱歉我也是新手我們可以互相學習

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

10^#

發表於 2020-8-1 23:46 | 只看該作者

本帖最後由 n7822123 於 2020-8-1 23:56 編輯

回復 8# ssooi

恭喜恭喜，大概能猜出你們是用2個迴圈做比對的寫法~

手癢了一下，我也公佈我的寫法吧，只有"一個迴圈"

如果用準大提到的工作表"篩選"功能，應該會寫的更簡單

每個分頁，我自己多複製了"標題列"，這樣感覺比較正常~

這個題目用G大喜歡用的Match函數就可以輕鬆解決了

如果你們想要讓程式更加快狠準，Match函數值得你花時間研究一下用法

程式如下

Sub Test0801()
All = Array("三商", "遠東", "信義")
Rn = [A1].End(4).Row
For R = 1 To Rn
  B = Application.Match(Cells(R, 2), All, 0)
  If Not IsError(B) Then '地點是否在All陣列內
With Sheets(Cells(R, 2).Value)
   Ro = .Cells(Rows.Count, 1).End(3).Row '找每頁最末列
   If Ro = 1 And .[A1] = "" Then Range([A1], [A1].End(2)).Copy .[A1]    '複製標提列
   Ro = Ro + 1: Range(Cells(R, 1), Cells(R, 1).End(2)).Copy .Cells(Ro, 1) '複製資料
End With
  End If
Next
End Sub

檔案如下~

Test0801.rar (17.84 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助