序号从U6单元开始，往下添加序号
2.添加的序号与A列内容平齐
excel vba添加序号
答案:2 悬赏:10 手机版
解决时间 2021-03-18 03:23
- 提问者网友：骑士
- 2021-03-17 14:03
最佳答案
- 五星知识达人网友：神也偏爱
- 2021-03-17 15:01
Sub s()
n = Cells(Rows.Count, 1).End(3).Row
For i = 6 To n
Cells(i, "u") = i - 5
Next
End Sub
n = Cells(Rows.Count, 1).End(3).Row
For i = 6 To n
Cells(i, "u") = i - 5
Next
End Sub
全部回答
- 1楼网友：英雄的欲望
- 2021-03-17 16:11
sub test()
dim i as integer
for i = 2 to range("d65000").end(xlup).row
if cells(i, 4) <> "" then
cells(i, 5) = "=datedif(d" & i & ",today(),""y"")"
end if
next i
end sub
把原公式的3写成 "xxxx“ & i & "xxxxx"，把公式中的"y"写成""y""，在vba中""代表字符串中的"。
其实不用宏这么复杂的东东，用公式就可以了。在e2输入 =if(d2="","",=datedif(d2,today(),"y"))，然后将公式向下复制就可以了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯