Sub pjCount()

    Dim r As Long

    r = Sheets("Inquery").[A65536].End(xlUp).Row

    ActiveSheet.PivotTables("A3").PivotCache.SourceData = _

        "Inquery!R2C2:R" & r & "C4"

    ActiveSheet.PivotTables("A3").PivotCache.Refresh

End Sub

最新文章

1. 【巩固】bootstrap笔记二
2. （五）WebRTC手记Channel概念
3. 你知不知道 Cookie正在泄露你的隐私！
4. SignalR —— Asp.net RealTime的春天
5. pyqt5 笔记（四）cx_Freeze 实现代码打包exe
6. eclipse svn subclipse下载地址
7. [haoi2010]订货 最小费用流
8. mysql explain中key_len值的说明
9. Dynamics365 WebAPI ADFS token 获取
10. java单元测试
11. jmeter—PerfMon Metrics Collector（附java.io.IOException: Agent is unreachable via TCP错误解决办法）
12. mysql备份数据库出错mysqldump: [ERROR] unknown option '--no-beep'
13. Java Web(八) MVC和三层架构
14. HP-UNIX操作系统root账号被锁定的两种解决方法
15. 静态同步synchronized方法和synchronized(class)代码块
16. LeetCode——N-Queens
17. generate failed: Cannot resolve classpath entry: mysql-connector-java-5.1.38.jar
18. 徒手创建一个 jsp 项目
19. 【swupdate文档 五】从可信的来源更新镜像
20. Entity Framework 6 vs NHibernate 4

热门文章

1. 程序员和IT员不能错过的网站
2. HLS manifest standard 翻译： HTTP Live Streaming draft-pantos-http-live-streaming-23
3. metal feature and specification
4. Java web中不同浏览器间导出Excel文件名称乱码问题解决方案
5. Hbuilder + MUI 修改App 启动的首页面
6. 莫比乌斯函数介绍&&基础
7. 最小安装的centos7下安装oracle 12c
8. zabbix添加监控项以及常用的键值
9. python 省略号 三个点...的含义
10. Ubuntu操作及Linux基础知识