| 查看: 2224 | 回复: 3 | ||
[求助]
批量提取excel中图表趋势线的公式中的斜率 已有1人参与
|
表单1里面有20张左右的散点图，每个图都添加了趋势线，显示公式和R2。。。现在需要提取斜率，把所有的斜率排成一列，方便复制进行下一步操作。。。请虫友们帮忙 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 图表方程的斜率提取.xls
2014-12-27 17:56:06, 478 K
» 猜你喜欢
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
有多少人是今天查系统知道结果的？
已经有17人回复
-
面上合作单位盖章
已经有5人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有8人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有7人回复
-
申请删除本帖
已经有7人回复
-
基金不中，共勉
已经有10人回复
-
国自然面上复盘~欢迎讨论
已经有11人回复
-
基金未中，这种答复是模板吗？
已经有6人回复
-
看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉……
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 超级万能的PDF软件——编辑、转换、合并等，基本能解决所有对PDF的处理需求！
已经有46人回复
- 《excel2010应用大全》【转载】
已经有10人回复
- 如何下载微生物菌体基因组注释信息，特别是ORFs 及酶号如何提取
已经有1人回复
- 【实用专业书籍】《随身查：Excel函数与公式综合应用技巧》【转载】
已经有86人回复
- CAD块属性批量提取 2.0
已经有6人回复
- Cad标题栏信息提取(明细表生成) 1.0
已经有6人回复
- 【共享】【首发】Office Image Extraction Wizard – 提取文档图片
已经有3人回复
- 【分享】EXCEL集成工具箱9.8安装版(EXCEL增强型插件)【已搜索无重复】
已经有197人回复
- 【分享】[04-029]精挑细选绿色软件推荐下载[清清心整理]【已搜索无重复】
已经有2人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
2楼2014-12-28 09:47:56
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
【答案】应助回帖
|
解决办法 将以前的数据复制到一个新的xls中，并保存，贴在shee1t中，这样就去除了以前的chart图。在sheet1中，运行下面的vba 宏 就可以了。主要是调用LinEst函数得出拟合的参数。 Sub 保存结果() '''''删除空的、不需要计算的列 Dim clu1, i, j As Integer Dim rowzong As Integer For j = 1 To 3 For i = 1 To 100 / j If Cells(1, i).Value = "" Then ''''判断该列的第一个单元格无数据，则删除该列 Cells(1, i).EntireColumn.Delete End If Next i Next j ''''''计算斜率存储到sheet2中 For i = 1 To 20 Step 1 ''''i为列数 ''''计算有效行数存储到j中 j =Worksheets("sheet1"  .Range(Chr(64 + i) & "65535".End(xlUp).RowIf Worksheets("sheet1" .Range(Chr(64 + i) & "1" <> "" Then'''必须有sheet2，让结果保存在sheet2中的B列，A列说明是那一列计算的结果。 Worksheets("sheet2" .Range("A" & Int(i) + 1) = Chr(64 + i) & "列"Worksheets("sheet2" .Range("B" & Int(i) + 1) = Application.WorksheetFunction.Index(Application.WorksheetFunction.LinEst(Worksheets("sheet1" .Range(Chr(64 + i) & "1:" & Chr(64 + i) & j), , True, False), 1) End If Next i End Sub |
3楼2014-12-29 19:47:07
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
4楼2014-12-29 19:49:11
10