作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 贴上不同档案
时间Fri Dec 14 12:02:55 2018
软体:excel
版本:2007
写了个vba
是开启很多档案里面很多工作表
将工作表贴入 A档案的汇入工作表
A档案已经命名为wb
Workbooks(openfile).Activate
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "全公司" And Sheet.Name <> "sheet1" Then
Range("A1:F50").Copy
wb.Sheets("汇入").Select <---这段要怎麽写 贴上去还会一直往下(只贴值)
End If
Next Sheet
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.78
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1544760178.A.4A0.html
1F：→ soyoso: wb.sheets("汇入").range.end()取得最後一笔有值储存格 12/14 12:26
2F：→ soyoso: offset偏移至下一个储存格，pastespecial贴上值 12/14 12:27
3F：→ ptguitar: 解决了 感谢S大 12/14 14:42