| 查看: 2263 | 回复: 3 | ||
[求助]
批量提取excel中图表趋势线的公式中的斜率 已有1人参与
|
表单1里面有20张左右的散点图，每个图都添加了趋势线，显示公式和R2。。。现在需要提取斜率，把所有的斜率排成一列，方便复制进行下一步操作。。。请虫友们帮忙 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 图表方程的斜率提取.xls
2014-12-27 17:56:06, 478 K
» 猜你喜欢
极限拉扯，如何抉择
已经有15人回复
-
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 超级万能的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
200