| 查看: 2027 | 回复: 3 | ||
[求助]
批量提取excel中图表趋势线的公式中的斜率 已有1人参与
|
表单1里面有20张左右的散点图，每个图都添加了趋势线，显示公式和R2。。。现在需要提取斜率，把所有的斜率排成一列，方便复制进行下一步操作。。。请虫友们帮忙 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 图表方程的斜率提取.xls
2014-12-27 17:56:06, 478 K
» 猜你喜欢
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
要不要辞职读博？
已经有6人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有4人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 超级万能的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