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

看板Office作者 (美少婦與女兒同學的故事)時間9年前 (2017/02/21 11:48), 9年前編輯推噓0(004)
留言4則, 1人參與, 最新討論串1/1
軟體: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

02/21 11:57, , 1F
於copy前將變數mytable偏移offset往下1列,以mytable的列
02/21 11:57, 1F

02/21 11:58, , 2F
數rows.count減1,再以range.specialcells設可見儲存格,
02/21 11:58, 2F

02/21 11:59, , 3F
可避免篩選的標題列
02/21 11:59, 3F

02/21 12:00, , 4F
補充,mytable的列數rows.count減1方面則用於resize
02/21 12:00, 4F
感謝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
文章代碼(AID): #1OgxYGBe (Office)
文章代碼(AID): #1OgxYGBe (Office)