12
返回列表 上一主題 發帖

filter型態不符合

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
8# 跳轉到 »
發表於 2020-8-1 20:25 | 只看該作者
回復 5# 軒云熊


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

TOP

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-5-4 
7#
發表於 2020-8-1 20:13 | 只看該作者
ReDim B(LBound(K) To UBound(K))
ReDim Preserve B(LBound(K) To UBound(K))
Erase B

這段也不用 ....XD

TOP

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-5-4 
6#
發表於 2020-8-1 19:50 | 只看該作者
剛才試著把  For x = 2 To Sheets.Count 迴圈刪除 結果發現 根本用不到 ........XD

TOP

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-5-4 
5#
發表於 2020-8-1 19:12 | 只看該作者
本帖最後由 軒云熊 於 2020-8-1 19:23 編輯
  1. 我也是新手順便練習一下 不過這段好像哪裡怪怪的  但我看不出來 請大大們 幫幫忙 該如何修改 感覺 好像迴圈 太多 不必要的代碼 好像很多 0.0
  2. Public Sub 練習跨工作表陣列練習()

  4.     For x = 2 To Sheets.Count
  5.         Sheets(x).Cells.Clear
  6.         Sheets(1).Rows(1).Copy Sheets(x).Rows(1)
  7.     Next x
  8.    
  9.     E = 2
  10.     A = Array("三商", "遠東", "信義")
  11.     K = Range(Cells(2, 1), Cells(2, 3).End(xlDown))
  12.     ReDim B(LBound(K) To UBound(K))
  13.     ReDim Preserve B(LBound(K) To UBound(K))

  15.     For x = 2 To Sheets.Count
  16.         For J = LBound(K) To UBound(K)
  17.             For I = LBound(A) To UBound(A)
  18.             If A(I) <> K(J, 2) Then E = 2
  19.                 If A(I) = K(J, 2) Then
  20.                 If Sheets(K(J, 2)).Cells(E, 1) <> "" Then E = E + 1
  21.                     Sheets(K(J, 2)).Cells(E, 1) = K(J, 1)
  22.                     Sheets(K(J, 2)).Cells(E, 2) = K(J, 2)
  23.                     Sheets(K(J, 2)).Cells(E, 3) = K(J, 3)
  24.                     E = E + 1
  25.                 End If
  26.             Next I
  27.         Next J
  28.     Exit For
  29.     Next x
  30.    
  31.     Erase A, K, B
  32.    
  33. End Sub
複製代碼

TOP

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
4#
發表於 2020-8-1 13:02 | 只看該作者
各位高手，真的盡力了~filter一直搞不定，用另外一種寫法，寫到這裡，不知道問題在哪，無法將整列複製到指定工作表的最後一欄，謝謝各位高手
  1. Sub 迴圈1()

  3. All = Array("三商", "遠東")

  5. For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
  6.    
  7.     For i = 0 To UBound(All)
  8.    
  9.         If Cells(r, 2) = All(i) Then
  10.             Rows(r).EntireRow.Copy
  11.             Sheets(All).Select
  12.             ActiveSheet.Paste
  13.             Exit For
  14.         End If
  15.         
  16.     Next
  17. Next

  19. End Sub
複製代碼

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-6 
3#
發表於 2020-8-1 09:34 | 只看該作者
基本操作功能--篩選, 應可處理這個問題,
先使用錄製取得程式碼...研究下...

有問題再提~~

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
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可能永遠進不去......進去了也會執行失敗

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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
12
返回列表 上一主題