| 4 | 1/1 | 返回列表 |
| 查看: 2083 | 回復(fù): 3 | |||
[求助]
批量提取excel中圖表趨勢線的公式中的斜率 已有1人參與
|
表單1里面有20張左右的散點(diǎn)圖,每個(gè)圖都添加了趨勢線,顯示公式和R2。!,F(xiàn)在需要提取斜率,把所有的斜率排成一列,方便復(fù)制進(jìn)行下一步操作。。。請蟲友們幫忙 |
鐵桿木蟲 (職業(yè)作家)
|
我所知道的方法: 第一種直接用excel vba 弄個(gè)程序,沒有一個(gè)小時(shí)搞不定; 第二種用origin 中batch processing,可以批量處理,但是沒有基礎(chǔ)和1個(gè)小時(shí)也不好做,還需要先弄成耽擱文件。 -------------- 若是樓主沒有更多的數(shù)據(jù)需要統(tǒng)一處理的話。直接手動(dòng)來做,把那個(gè)圖形框中的全部復(fù)制出來,貼到一個(gè)地方,批量整理下(以等號(hào)和+-號(hào)為界分隔),只需要30分鐘。 |
鐵桿木蟲 (職業(yè)作家)
|
解決辦法 將以前的數(shù)據(jù)復(fù)制到一個(gè)新的xls中,并保存,貼在shee1t中,這樣就去除了以前的chart圖。在sheet1中,運(yùn)行下面的vba 宏 就可以了。主要是調(diào)用LinEst函數(shù)得出擬合的參數(shù)。 Sub 保存結(jié)果() '''''刪除空的、不需要計(jì)算的列 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 ''''判斷該列的第一個(gè)單元格無數(shù)據(jù),則刪除該列 Cells(1, i).EntireColumn.Delete End If Next i Next j ''''''計(jì)算斜率存儲(chǔ)到sheet2中 For i = 1 To 20 Step 1 ''''i為列數(shù) ''''計(jì)算有效行數(shù)存儲(chǔ)到j(luò)中 j =Worksheets("sheet1" .Range(Chr(64 + i) & "65535" .End(xlUp).RowIf Worksheets("sheet1" .Range(Chr(64 + i) & "1" <> "" Then'''必須有sheet2,讓結(jié)果保存在sheet2中的B列,A列說明是那一列計(jì)算的結(jié)果。 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 |
鐵桿木蟲 (職業(yè)作家)
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 329求調(diào)劑 +5 | 星野? 2026-03-26 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 266分,求材料冶金能源化工等調(diào)劑 +6 | 哇呼哼呼哼 2026-03-27 | 8/400 |
|
|
[考研] 085602 307分 求調(diào)劑 +6 | 不知道叫什么! 2026-03-26 | 6/300 |
|
|
[考研] 考研調(diào)劑 +4 | Sanmu-124 2026-03-26 | 4/200 |
|
|
[考研] 0856調(diào)劑 +5 | 求求讓我有書讀?/a> 2026-03-26 | 6/300 |
|
|
[考研] 一志愿北京化工大學(xué)材料與化工 264分各科過A區(qū)國家線 +10 | 哈哈157349 2026-03-21 | 10/500 |
|
|
[考研]
材料學(xué)碩,求調(diào)劑
6+5
|
糖葫蘆888ll 2026-03-22 | 10/500 |
|
|
[考研] 351求調(diào)劑 +4 | 麥克阿磊 2026-03-24 | 4/200 |
|
|
[考研]
材料調(diào)劑
5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
[考研] 085601求調(diào)劑總分293英一數(shù)二 +4 | 鋼鐵大炮 2026-03-24 | 4/200 |
|
|
[考研] 081700 調(diào)劑 267分 +11 | 迷人的哈哈 2026-03-23 | 11/550 |
|
|
[考研] 0856求調(diào)劑 +8 | zhn03 2026-03-25 | 9/450 |
|
|
[考研] 總分293求調(diào)劑 +6 | 加一一九 2026-03-25 | 8/400 |
|
|
[考研] 打過很多競賽,085406控制工程300分,求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
[考研] 機(jī)械學(xué)碩總分317求調(diào)劑!。! +4 | Acaciad 2026-03-25 | 4/200 |
|
|
[考研] 材料專碩 335 分求調(diào)劑 +4 | 拒絕冷暴力 2026-03-25 | 4/200 |
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
[考研] 0703化學(xué)求調(diào)劑 +6 | 奶油草莓. 2026-03-22 | 7/350 |
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|
|
[考研] 材料/農(nóng)業(yè)專業(yè),07/08開頭均可,過線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|