如何使用VBA下移一列

UsedRange 並不表示是〔篩選區〕，
有時標題列之上還有〔表首〕文字．項目或統計公式，

可用　AutoFilter.Range　去抓篩選區，
本題為例，篩選區為〔L1:M1213〕。

2015-07-29 09:45:59 補充：
With ActiveSheet
　　If .FilterMode = False Then Exit Sub
　　For Each xR In .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
　　　If N > 2 Then Exit For '只貼前兩筆
　　　If N > 0 Then [A1:K1].Offset(xR.Row - 1, 0).Copy Sheets("工作表" & N + 1).[A1]
　　　N = N + 1
　　Next
End With

2015-07-30 18:25:01 補充：
EXCEL VBA．複製〔篩選區〕資料，逐列複製
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：
Sub TEST02()
Dim xR As Range, N%
With ActiveSheet
　　If .FilterMode = False Then Exit Sub　'未執行篩選，跳出
　　For Each xR In .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
　　　If N > 2 Then Exit For 　'只貼前兩筆
　　　If N > 0 Then [A1:K1].Offset(xR.Row - 1, 0).Copy Sheets("工作表" & N + 1).[A1]
　　　N = N + 1
　　Next
End With
End Sub
　
－－說明－－
AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
取得〔篩選區〕的〔第１欄〕〔可見儲存格〕，
這包含〔第１列〕的標題，所以，迴圈從第２筆開啟貼資料。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

2015-07-30 18:27:25 補充：
不好再推誠意，
還是撥個空簡單貼答！

期待准提部林大師解答...小弟也想學習
MsgBox theRow.Row theRow.Address既然可以找出列號跟範圍就可以複製了
theRow.Address.copy sheets(i).(位置)
rows(theRow.Row ).copy sheets(i).(位置)

2015-07-28 20:24:46 補充：
不然就做苦工>>新增一個輔助Sheets就容易處理了
Sheets("來源").UsedRange.AutoFilter Field:=2, Criteria1:=篩選
Sheets("來源").UsedRange.Copy Sheets("輔助頁").Cells(1, 1)

2015-07-28 21:32:55 補充：
利用該網頁資料做個範例
http://www.FunP.Net/624145

參考一下
http://blog.xuite.net/crdotlin/excel/11049893-AutoFilter+%E6%96%B9%E6%B3%95

2015-07-28 12:18:30 補充：
For Each theRow In theArea.Rows
theRow.Select '選定此列
MsgBox theRow.Row '顯示此列
Next