返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
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

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題