请大神们帮忙看下这个增加指定文字的难题

qiongmei6 · 发表于 2024-7-31 16:35

我想求得一个代码，就是当代码执行的时候，在y3：y200列，如果表格里头没有“聘用工”，则代码在y3：y200列单元格下面的单元格内增添一个“聘用工”，但是如果y3：y200里有“聘用工”则不做任何增添，；例如我目前的表格y3：y33里没有“聘用工”的文字，则代码执行的时候，他在y34则出现“聘用工”的文字，但是y列本身就有聘用工的文字，则不做任何改变，谢谢各位大神的帮忙

quqiyuan · 发表于 2024-7-31 16:47

参与一下，供参考。。。

quqiyuan · 发表于 2024-7-31 16:48

代码如下。。。
Sub test()
With Sheet1
      For i = 3 To 65536
         If .Cells(i, "y") = "聘用工" Then Exit For
         If .Cells(i, "y") = "" Then .Cells(i, "y") = "聘用工": Exit For
      Next
End With
Beep
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请大神们帮忙看下这个增加指定文字的难题

评分