excel多個量測正弦波型自動切分

m06o2

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






test.zip (41.05 KB)

原始資料
下載次數: 1

2024-8-13 16:34

下載 (48.72 KB)
圖片

2024-8-13 16:34

quickfixer

回復 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

複製代碼

下載 (39.23 KB)

2024-8-15 07:22

m06o2

回復 2# quickfixer


    已測試成功!!!!