送心意

玲老师

职称会计师

2021-03-27 08:14

你好
1.
代码如下:
Sub
add()
Dim
i,
a
For
i
=
2
To
99
a
=
Range(B
&
i)
If
a
>
0
Then
a
=
a
+
1:
Range(B
&
i)
=
a
Next
i
End
Sub
2.
根据你的实际行号范围,调整
for循环
的最大值(99)。

久远的平淡 追问

2021-03-27 11:27

这个代码不用输入某个单元格吗

久远的平淡 追问

2021-03-27 11:29

我需要在n3单元格设置

玲老师 解答

2021-03-27 11:43

单元格设置的。没有操作过。

久远的平淡 追问

2021-03-27 11:45

你这个设置的是啥

玲老师 解答

2021-03-27 12:02

这个是写代码。
你可以按照下面这个流程里操作一下。
用宏的方法:
在工作表中按alt+f11进入vba编程界面
工作具栏第二个按钮拉下来,选择“模块”,插入一个模块
在左边栏的“模块1”名字上双击,打开右边的程序书写区域
将下面的程序粘贴进去

sub changeprefix()
    dim rn as range, r as range
    dim sh as worksheet
    set rn = activesheet.usedrange
    for each r in rn
        if r.prefixcharacter = "'" then
            t = r.value
            r.clearcomments
            r.numberformatlocal = "@"
            r.value = t
        end if
    next
end sub

现在关闭编程窗口回到工作表,按alt+f8打开“宏”对话窗口,然后点击“执行”

(注意:要把宏的安全级别设为中或低以允许宏的运行)
上述操作完成后,带前缀“'”输入的字符内容就会被换成不带前缀的字符内容

上传图片  
还没有符合您的答案?立即在线咨询老师 免费咨询老师
精选问题
举报
取消
确定
请完成实名认证

应网络实名制要求,完成实名认证后才可以发表文章视频等内容,以保护账号安全。 (点击去认证)

取消
确定
加载中...