標題: [發問] (求VBA)資料篩選出後,將第一列複製到指定的工作表 [打印本頁]

---

作者: peter95    時間: 2018-4-13 01:10     標題: (求VBA)資料篩選出後,將第一列複製到指定的工作表

本帖最後由 peter95 於 2018-4-13 01:23 編輯

(求VBA)資料篩選出後,將第一列複製到指定的工作表

小弟有資料龐大的DATA
會針對這個DATA做多次篩選
想要每次篩選後的第一列的資料
依序貼到指定的工作表

請各位大大 幫忙求VBA
謝謝大家
謝謝
示意圖
[attach]28519[/attach]
原始檔案
[attach]28520[/attach]

---

作者: 准提部林    時間: 2018-4-13 11:13

Sub TEST()
Dim Frng As Range, xE As Range
If Sheets("Sheet1").FilterMode = False Then MsgBox "尚未執行篩選": Exit Sub
Set Frng = Sheets("Sheet1").AutoFilter.Range.Offset(1, 0)
Set Frng = Frng.SpecialCells(xlCellTypeVisible).Rows(1)
Set xE = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)
If xE.Row = 1 Or xE <> "" Then Set xE = xE(2)
Frng.Copy xE
End Sub

---

作者: peter95    時間: 2018-4-13 13:11

回復 2# 准提部林

感謝老師 指導 太棒了
是學生要的功能
謝謝老師

---

作者: peter95    時間: 2018-4-20 22:57

回復 2# 准提部林

資料篩選出後,將第一列複製到指定的工作表
然後直接覆蓋掉第一筆
不要往下一列   一直 貼下去


感謝老師指導
感謝

---

作者: 准提部林    時間: 2018-4-21 10:19

回復 4# peter95


Sub TEST()
Dim Frng As Range, xE As Range
If Sheets("Sheet1").FilterMode = False Then MsgBox "尚未執行篩選": Exit Sub
Set Frng = Sheets("Sheet1").AutoFilter.Range.Offset(1, 0)
Set Frng = Frng.SpecialCells(xlCellTypeVisible).Rows(1)

Frng.Copy Sheets("Sheet2").Range("A2")
End Sub

---

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