[算表] 巨集轉寫表頭問題?

[ljuber (美少婦與女兒同學的故事)]

軟體: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://www.ptt.cc/bbs/Office/M.1487648912.A.2E8.html
→ soyoso: 於copy前將變數mytable偏移offset往下1列，以mytable的列
→ soyoso: 數rows.count減1，再以range.specialcells設可見儲存格，
→ soyoso: 可避免篩選的標題列
→ soyoso: 補充，mytable的列數rows.count減1方面則用於resize
感謝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