標題: excel多個量測正弦波型自動切分 [打印本頁]

---

作者: m06o2    時間: 2024-8-13 16:37     標題: excel多個量測正弦波型自動切分

使用量測設備量測一物體做正弦運動後的量測值，如下面附件test.xlsx，
是否有方法能自動將正弦資料單獨做切割，劃分成圖面上面紅點的區間，分別條列式成一個新的工作列表。






[attach]37834[/attach]
[attach]37835[/attach]

---

作者: quickfixer    時間: 2024-8-15 07:22

回復 1# m06o2

1. Sub test()
   
2.    
   
3. Dim LastRow As Long
   
4. Sheets("工作表2").Cells.Clear
   
5. With Sheets("工作表1")
   
6.     LastRow = .Range("A1").CurrentRegion.Rows.Count
   
7.     rr = 1
   
8.     cc = 1
   
9.     For i = 1 To LastRow
   
10.         Sheets("工作表2").Cells(rr, cc) = .Cells(i, 1)
    
11.         If i = LastRow Then Exit For
    
12.         rr = rr + 1
    
13.         If Sgn(0 - .Cells(i, 1)) + Sgn(0 - .Cells(i + 1, 1)) = 0 Then
    
14.             aa = aa + 1
    
15.             If aa Mod 2 = 1 Then
    
16.             rr = 1
    
17.             cc = cc + 1
    
18.             End If
    
19.         End If
    
20.     Next i
    
21. 
    
22. End With
    
23. 
    
24. End Sub

複製代碼

[attach]37836[/attach]

---

作者: m06o2    時間: 2024-8-15 14:13

回復 2# quickfixer


    已測試成功!!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)