作者ljuber (美少妇与女儿同学的故事)
看板Office
标题[算表] 巨集转写表头问题?
时间Tue Feb 21 11:48:30 2017
软体:excel
版本:2007
我写了段转写筛选纪录巨集
Set mytable = Worksheets("temp").UsedRange
With mytable
.AutoFilter 4, "111111111111"
.Copy
Sheets("ai301").Range("B" & A).PasteSpecial xlPasteValues
.AutoFilter
End With
但是筛到另外一个表都会把表的开头一起筛进去
不知道要怎麽避免这状况??
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.252.11
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1487648912.A.2E8.html
1F：→ soyoso: 於copy前将变数mytable偏移offset往下1列，以mytable的列 02/21 11:57
2F：→ soyoso: 数rows.count减1，再以range.specialcells设可见储存格， 02/21 11:58
3F：→ soyoso: 可避免筛选的标题列 02/21 11:59
4F：→ soyoso: 补充，mytable的列数rows.count减1方面则用於resize 02/21 12:00
感谢S大提示
後来.copy改这段就可以了
.Select
Selection.Offset(1).Resize(Selection.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).Copy
※ 编辑: ljuber (1.34.252.11), 02/21/2017 13:41:13