excel vba添加序号

序号从U6单元开始，往下添加序号
2.添加的序号与A列内容平齐

Sub s()
    n = Cells(Rows.Count, 1).End(3).Row
    For i = 6 To n
        Cells(i, "u") = i - 5
    Next
End Sub

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"))，然后将公式向下复制就可以了。