標題: 篩選後,將儲存格資料複製到其它空白儲存格(已爬文 [打印本頁]

---

作者: rph    時間: 2017-3-7 13:51     標題: 篩選後,將儲存格資料複製到其它空白儲存格(已爬文

懇請各位賜教,我做的範例是要把姓名"AA"篩選後，把資料複製到空白儲存格(標題列不要)，感謝

---

作者: stillfish00    時間: 2017-3-7 15:33

回復 1# rph

1. Sub Test()
   
2.     Dim rngData As Range
   
3.     With ActiveSheet
   
4.         Set rngData = .Range("A1").CurrentRegion    'A1:C6
   
5.         rngData.AutoFilter Field:=1, Criteria1:="AA"
   
6.         Set rngData = rngData.Resize(rngData.Rows.Count - 1).Offset(1)  'A2:C6
   
7.         rngData.SpecialCells(xlCellTypeVisible).Copy .Range("E14")  'copy to E14
   
8.         .AutoFilterMode = False
   
9.     End With
   
10. End Sub

複製代碼

---

作者: 准提部林    時間: 2017-3-7 16:13

With ActiveSheet.AutoFilter.Range
　　　.AutoFilter Field:=1, Criteria1:="AA"
　　　.Offset(1).Copy [E14]
　　　.AutoFilter Field:=1
End With

---

作者: rph    時間: 2017-3-7 16:55

回復 4# 准提部林


    感謝版主教導

---

作者: Nicolas    時間: 2017-3-15 09:19

正好要做類似的vba，謝謝先進的教導，研究中

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)