如何使用VBA将连续数字放在活动范围的单元格中？

Question

我有一个选定的400个单元格系列在一个共同点，并想要编号。但是，我希望这是动态的，所以如果我选择一个更大的范围，它将对它们进行编号。基本上我如何编号活动单元格。我尝试使用宏来完成它，但由于我的数据结构的方式，行中没有任何内容可以启动，因此我无法使用xldown函数。在此先感谢，我真的很感激。

Answer 1

这将填充单列或单行连续选择（即单个区域）：

Sub Tester()

    With Selection
        If .Columns.Count = 1 Then
            .Value = .Parent.Evaluate("Row(1:" & .Rows.Count & ")")
        ElseIf .Rows.Count = 1 Then
            .Value = Application.Transpose( _
                  .Parent.Evaluate("Row(1:" & .Columns.Count & ")"))
        End If
    End With

End Sub