|
发表于 2016-9-19 08:57
|
显示全部楼层
本楼为最佳答案
- Sub Greenhand()
- Dim arr
- Dim i&
- arr = Range("f2", Cells(65536, "g").End(3))
- For i = 2 To UBound(arr)
- If Asc(arr(i, 2)) > 96 And Asc(arr(i, 2)) < 123 Then
- arr(i - 1, 1) = arr(i, 2): arr(i, 2) = ""
- End If
- Next
- [f2].Resize(UBound(arr), 2) = arr
- End Sub
复制代码 |
评分
-
查看全部评分
|