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

karlchan1934

A列和B列分别是姓名和年级，只列举了几个，我想通过VBA实现批量处理，让他们所有同学的年级升一下，比如“初一”要变成“初二”，“初三”要变成“高一”，高三的就不变化了


替换.rar (8 KB, 下载次数: 18)

2023-7-1 17:14 上传

点击文件名下载附件

shiruiqiang

创建一个字典，b列修改一下。高三要删除了吧

karlchan1934

shiruiqiang 发表于 2023-7-1 17:21
创建一个字典，b列修改一下。高三要删除了吧

需要保留高三，不删除高三，不想要辅助列，好不好实现

cyq4896

请试一试...

cyq4896

不要辅助列

shiruiqiang

karlchan1934 发表于 2023-7-1 17:29
需要保留高三，不删除高三，不想要辅助列，好不好实现

那就判断，初一改初二这样，4楼

cidanji

karlchan1934

谢谢大家，真热心

shiruiqiang

函数也行，多写一下

wangtk1982

1. Sub 按钮1_Click()
   
2. 
   
3.     arr = Array("初一", "初二", "初三", "高一", "高二", "高三", "高三")
   
4.     Set rng = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
   
5.    
   
6.     For i = 1 To rng.Rows.Count
   
7.         For j = LBound(arr) To UBound(arr)
   
8.             If rng.Cells(i).Value = arr(j) Then
   
9.                 rng.Cells(i).Value = arr(j + 1)
   
10.                 Exit For
    
11.             End If
    
12.         Next j
    
13.     Next i
    
14. 
    
15. 
    
16. End Sub

复制代码