Sub change()
Dim m As Integer
m = 1
For k = 2 To 6854
If Trim(Range("A" & k).Text) = "Q" Then
m = m + 1
Cells(m, "I") = Trim(Range("B" & k).Text)
End If
Next
End Sub
07-18
339
07-17
567
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交