Sub copy_specail_text()
‘Dim rl As Integer
‘Dim wl As Integer
SumRows = Sheet1.UsedRange.Rows.Count
MsgBox "sumrows is :" & SumRows
wl = 1
For rl = 1 To SumRows
If InStr(1, Sheet1.Cells(rl, 1), "ifOutOctets.3 =") Then
Sheet1.Cells(wl, 8) = Sheet1.Cells(rl, 1)
wl = wl + 1
End If
Next
End Sub
时间: 2024-11-20 23:37:41