matlab获取过滤数据,用VBA 或者Matlab 进行数据筛选。

Sub 提取数据()

Dim sh1 As Worksheet, sh2 As Worksheet, i&

Set sh1 = Worksheets("原始数据表")

Set sh2 = Worksheets("提取数据表")

With sh2

.Columns("A:D").ClearContents

sh1.Columns("A:D").Copy .[A1]

.Columns("A:D").Sort Key1:=.Range("D2"), Header:=xlGuess, OrderCustom:=1

For i = .[D65536].End(xlUp).Row To 2 Step -1

If .Cells(i, 4).Value <= .[F1].Value Then .Rows(i + 1 & ":" & 65535).Delete: Exit For

Next

.Columns("A:D").Sort Key1:=.Range("B2"), Key2:=.Range("A2"), Header:=xlGuess, OrderCustom:=1

For i = .[B65536].End(xlUp).Row - 1 To 2 Step -1

If .Cells(i, 2).Value = .Cells(i + 1, 2).Value Then .Rows(i).Delete

Next

.Columns("A:D").Sort Key1:=.Range("A2"), Header:=xlGuess, OrderCustom:=1

.Activate

End With

MsgBox "OK!"

End Sub