
vba
Captain_Data
有问题可以私信交流呀~csdn当笔记用~
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
Excel 合并表格
1ActiveSheet.Cells(1, 1).PasteSpecial(拷贝方法为选择性拷贝)2ActiveSheet.Cells(ActiveSheet.Range(“a65536”).End(xlUp).Row + 1, (索引exce工作簿中最最底部的位置)Sub 合并()Sheets(1).Range("a1:F1").CopyActiveSheet.Cells(1, 1).P...原创 2019-12-03 09:46:18 · 441 阅读 · 0 评论 -
vba词云简板
Sub 导表() expath = ThisDocument.Path & "\" Set exapp = CreateObject("excel.application") exapp.Visible = True exapp.workbooks.Open (expath + "销量情况.xlsx") exapp.sheets("Sheet2")...原创 2019-12-03 00:29:39 · 542 阅读 · 0 评论 -
2 vba_Excel 词云
123原创 2019-12-02 17:56:36 · 1947 阅读 · 0 评论 -
excle 3招让你大把时间喝咖啡
1Sub a1()'Application(CountA(Range("k:k")))For i = 2 To Application.CountA(Range("k:k")) Sheets("房产数据").Select kv = Range("k" & i) ActiveSheet.PivotTables("数据透视表1").PivotField...原创 2019-11-28 20:01:54 · 337 阅读 · 0 评论 -
1 excel(vba) 如何导表 提高效率 ? 学会这个方法,你会有大把时间喝咖啡
Sub qqq() For i = 2 To 5 str1 = Range("g" & i) ActiveSheet.PivotTables("数据透视表2").PivotFields("车间").ClearAllFilters ActiveSheet.PivotTables("数据透视表2").PivotFields("车间").CurrentPage ...原创 2019-11-28 14:13:33 · 954 阅读 · 0 评论