sách gpt4 ai đã đi

vba - 打开/关闭标志以更改名称

In lại 作者:行者123 更新时间:2023-12-04 21:57:51 25 4
mua khóa gpt4 Nike

我需要帮助。

我在 A3:A500 列中有单词和数字
我需要改变他们的名字。
如果单元格包含单词“previ”,则如果单元格是数字,则将字母“p”放入新列中。如果它是一个词,那么不要放“p”
...就像打开和关闭旗帜一样。

这就是我所拥有的:

Sub()
For i=3 to 500
x= range("a:"&i).value
If x contains "previ" Then
prevflag=1
ElseIf x is not integer Then
prevflag=0
End If

If prevflag=1 Then
range("H:"& i )= "p"
End If
Next i
End Sub

你们能帮我完成这项工作吗?
谢谢你!!
这就是它需要的样子
https://postimg.org/image/e62z4xwlj/

1 Câu trả lời

查看您的示例,您似乎想将“p”放在标题包含“previ”的部分中的行中,但不想放在标题不包含的部分中。您似乎还希望在 A 列中有空白的行中出现“p”,而不仅仅是整数。以下内容对您有用吗?

Public Sub addPs()

Dim previFlag As Boolean

Dim c As Range: For Each c In Range("a1:a51")

If InStr(c.Value, "previ") > 0 Then

previFlag = True

ElseIf Not IsNumeric(c.Value) Then

previFlag = False

End If

If IsNumeric(c.Value) Then

If Int(c.Value) = c.Value And previFlag Then c.Offset(0, 3) = "p"

End If

Next c

End Sub

关于vba - 打开/关闭标志以更改名称,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40973995/

25 4 0
Bài viết được đề xuất: vba - Excel VBA检查值是否不在范围内
Bài viết được đề xuất: vba - 使用vba删除范围内的删除线单元格
Bài viết được đề xuất: vba - 使用宏记录器记录长 Excel 公式时出现问题
Bài viết được đề xuất: vba - 使用 VBA 在 Excel 中删除损坏的命名范围
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com