VBA For循环不向单元格打印值

Question

Option Explicit
Public Sub Autoserial()

Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long

a = Selection.Row
b = Selection.Rows.Count + Selection.Row - 1
c = Selection.Column
d = 1

For e = a To e = b
Cells(e, c).Value = d
d = d + 1
Next e

End Sub

此代码是手动排名功能。当我运行此代码时，序列号应出现在选择的第一列。该列上没有打印任何内容。此外，没有出现任何错误。

选择是A1到D5

Answer 1

请尝试这个，我整理并删除了一些不需要的变量 这应该在您选择的第一列打印您的序列号

ul {
 display: flex;
 padding: 0;
 list-style: none;
}