[已解决]求助：对应E列的生字，将F ...

水木

求助：对应E列的生字，将F列的生字和拚音上下换个位置。.rar (10.92 KB, 下载次数: 8)

2016-9-21 17:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-9-21 20:03

1. Sub Greenhand()
   
2.     Dim i&
   
3.     Dim arr
   
4.     arr = Range("e2", Cells(65536, "f").End(3))
   
5.         For i = 1 To UBound(arr)
   
6.         If Len(arr(i, 1)) > 0 And Asc(arr(i, 2) & " ") < 0 Then
   
7.         temp = arr(i, 2)
   
8.         arr(i, 2) = arr(i + 1, 2)
   
9.         arr(i + 1, 2) = temp
   
10.         End If
    
11.     Next
    
12.     [e2].Resize(UBound(arr), 2) = arr
    
13. End Sub

复制代码

跳转到最佳答案楼层

云影

这样？

云影

{:3312:}我发的附件又被系统藏起来了{:112:}

水木

云影 发表于 2016-9-21 19:22
我发的附件又被系统藏起来了

先要谢谢老师！请系统取消隐藏！谢谢系统！

望帝春心

1. Sub Greenhand()
   
2.     Dim i&
   
3.     Dim arr
   
4.     arr = Range("e2", Cells(65536, "f").End(3))
   
5.         For i = 1 To UBound(arr)
   
6.         If Len(arr(i, 1)) > 0 And Asc(arr(i, 2) & " ") < 0 Then
   
7.         temp = arr(i, 2)
   
8.         arr(i, 2) = arr(i + 1, 2)
   
9.         arr(i + 1, 2) = temp
   
10.         End If
    
11.     Next
    
12.     [e2].Resize(UBound(arr), 2) = arr
    
13. End Sub

复制代码

望帝春心

参考附件