这个该怎么写啊，求助，送花

micch

逆序替换一下就行，substitute嵌套，用代码的话就是循环replace一下

LIUZHU

练习一下

LIUZHU

需要用WPS测试，只有WPS支持JS宏

ykcbf1100

参与一下。

micch

1. Function Grade(s)
   
2.     x = "初一初二初三高一高二高三高三"
   
3.     Grade = Mid(x, InStr(x, s) + 2, 2)
   
4. End Function
   

复制代码

写个简单的函数吧

yynrzwh

1. Sub 升级()
   
2. 
   
3. arr = Sheet1.[a1].CurrentRegion
   
4. 
   
5.     For i = 2 To UBound(arr)
   
6.         a = arr(i, 2)
   
7.         Select Case a
   
8.             Case "初一"
   
9.                 arr(i, 2) = "初二"
   
10.             Case "初二"
    
11.                 arr(i, 2) = "初三"
    
12.             Case "初三"
    
13.                 arr(i, 2) = "高一"
    
14.             Case "高一"
    
15.                 arr(i, 2) = "高二"
    
16.             Case "高二"
    
17.                 arr(i, 2) = "高三"
    
18.         End Select
    
19.     Next i
    
20.    
    
21. [d1].Resize(UBound(arr), 2) = arr
    
22. End Sub
    

复制代码

准提部林

直接替換//
Sub TEST_A1()
With Range("B:B")
     For Each a In Array("三", "二", "一", "初四", "高四")
         .Replace a, Array("四", "三", "二", "高一", "高三")(n), lookat:=xlPart
         n = n + 1
     Next a
End With
End Sub

吴中泉

准提部林 发表于 2023-7-1 22:44
直接替換//
Sub TEST_A1()
With Range("B:B")

不过我们没有初四和高四这个年级

准提部林

吴中泉 发表于 2023-7-2 10:19
不过我们没有初四和高四这个年级

三 變 四
初三 變 初四 > 初四 變 高一
高三 變 高四 > 高四 變回 高三

這是"移形變位"法

吴中泉

准提部林 发表于 2023-7-2 12:05
三 變 四
初三 變 初四 > 初四 變 高一
高三 變 高四 > 高四 變回 高三

乾坤大挪移