| 4 | 1/1 | 返回列表 |
| 查看: 2082 | 回復(fù): 3 | ||
[求助]
批量提取excel中圖表趨勢(shì)線的公式中的斜率 已有1人參與
|
表單1里面有20張左右的散點(diǎn)圖,每個(gè)圖都添加了趨勢(shì)線,顯示公式和R2。!,F(xiàn)在需要提取斜率,把所有的斜率排成一列,方便復(fù)制進(jìn)行下一步操作。。。請(qǐng)蟲友們幫忙 |
鐵桿木蟲 (職業(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ā)表 | |
|---|---|---|---|---|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運(yùn)氣 2026-03-27 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +3 | 小張zxy張 2026-03-26 | 5/250 |
|
|
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +4 | 哇呼哼呼哼 2026-03-26 | 4/200 |
|
|
[考研] 274求調(diào)劑 +17 | 顧九笙要謙虛 2026-03-24 | 23/1150 |
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +10 | 你好明天你好 2026-03-23 | 12/600 |
|
|
[考研] 一志愿太原理工安全工程300分,求調(diào)劑 +4 | 0857求調(diào)劑. 2026-03-24 | 4/200 |
|
|
[考研] 材料求調(diào)劑 +8 | @taotao 2026-03-21 | 8/400 |
|
|
[考研] 0703化學(xué)一志愿南京師范大學(xué)303求調(diào)劑 +3 | zzffylgg 2026-03-24 | 3/150 |
|
|
[考研] 求調(diào)劑,一志愿 南京航空航天大學(xué)大學(xué) ,080500材料科學(xué)與工程學(xué)碩 +4 | @taotao 2026-03-26 | 5/250 |
|
|
[考研] 求調(diào)劑 一志愿 本科 北科大 化學(xué) 343 +6 | 13831862839 2026-03-24 | 7/350 |
|
|
[考研] 化學(xué)工程085602 305分求調(diào)劑 +17 | RichLi_ 2026-03-25 | 17/850 |
|
|
[考研] 材料科學(xué)與工程 317求調(diào)劑 +4 | JKSOIID 2026-03-26 | 4/200 |
|
|
[考研] 0856求調(diào)劑 +8 | zhn03 2026-03-25 | 9/450 |
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
[考研] 332求調(diào)劑 +6 | 032500 2026-03-25 | 6/300 |
|
|
[考研] 282求調(diào)劑 +3 | wcq131415 2026-03-24 | 3/150 |
|
|
[考研] 293求調(diào)劑 +7 | 加一一九 2026-03-24 | 7/350 |
|
|
[考研] 0703化學(xué)求調(diào)劑 +6 | 奶油草莓. 2026-03-22 | 7/350 |
|
|
[考研] 求調(diào)劑 +7 | 十三加油 2026-03-21 | 7/350 |
|
|
[考研] 275求調(diào)劑 +6 | shansx 2026-03-22 | 8/400 |
|