台灣最大程式設計社群網站
線上人數
129
 
會員總數:244540
討論主題:188696
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> Excel VBA 篩選後複製的問題,請大神協助呀~~~
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Excel VBA 篩選後複製的問題,請大神協助呀~~~
價值 : 10 QP  點閱數:529 回應數:1

樓主

David520
門外漢
0 1
8 0
發送站內信

各位大大日安~~

我做一個VBA,是將篩選完的資料複製到另一個工作表,當在我的電腦執行時,執行正常,可是在別人的電腦裡,卻會出現複製最上行到最底行的問題,請大家幫幫我~我不知道怎麼了!!

例如:
當我篩選完資料列數為358~411,我電腦執行時,只會複製358~411,但是別人電腦執行時,卻會出現複製3~411,就是出現會從最上行複製到最底行

不知道是不是我的程式碼有問題,請大家協助我!!


程式碼

CLC = Cells(28, 2)
CLC2 = Cells(28, 3)
MPU = Cells(28, 4)
PLE = Cells(28, 5)
NAM = Cells(28, 6)
STA = Cells(28, 7)

Dim Rng As Range '自動篩選結果範圍
Dim theRow As Range '各區域的資料列
Dim theArea As Range '各區域範圍

With Sheets("DATA") '在Orders工作表中
Set Rng = .Range("2:2") '所有資料範圍

If CLC <> "" Then

CCL = "=*" & CLC & "*"
Rng.AutoFilter Field:=2, Criteria1:=CCL, Operator:=xlAnd '
End If

If CLC2 <> "" Then
Rng.AutoFilter Field:=3, Criteria1:=CLC2, Operator:=xlAnd '
End If

If MPU <> "" Then
Rng.AutoFilter Field:=4, Criteria1:=MPU, Operator:=xlAnd '
End If

If PLE <> "" Then
Rng.AutoFilter Field:=5, Criteria1:=PLE, Operator:=xlAnd '
End If

If NAM <> "" Then
Rng.AutoFilter Field:=6, Criteria1:=NAM, Operator:=xlAnd '
End If

If STA <> "" Then
Rng.AutoFilter Field:=7, Criteria1:=STA, Operator:=xlAnd '
End If


End With


XX = Application.CountA(Sheets("DATA").Range("a:a")) + 1 '取得工作表1的資料總數,怕XX=0出現錯誤,故最後再+1


n = Sheets("DATA").Range("a" & 65536).End(xlUp).Row


Sheets("DATA").Range("A3:BK" & n).Copy _
Destination:=Worksheets("查詢系統").Range("a35") '複製篩選結果到工作表1的A1

Selection.Copy

Rng.AutoFilter '解除自動篩選狀態

搜尋相關Tags的文章: [ 篩選 ] ,
本篇文章發表於2019-01-21 11:15
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
可以post上來看看嗎?
本篇文章回覆於2019-03-09 08:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.