返回列表 上一主題 發帖

filter型態不符合

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-8-1 00:09 | 顯示全部帖子

filter型態不符合

我先將各個地點做成一個陣列
然後將Sheet1裡面的地點與陣列做比對
若符合該地點，則將該地點整列的資料複製到該地點的分頁
但我做到一半就卡住了
錯誤訊息是型態不符合

book1.zip (8.43 KB)

code.zip (378 Bytes)
收藏 分享

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
2#
發表於 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

ssooi

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


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

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題