Question

假设我有1397组5个单元格，如下所示：

第1组

0000 0000 0000 0000 0000

等。

我想在excel中将每个组增加1，我该如何实现？以下是示例：

0000   0000   0000   0000   0000

0001   0001   0001   0001   0001

0002   技术   技术   技术   0002

我可以使用公式或宏来实现这个目标吗？

细胞正在成行。

Answer 1

将group1（第一行）设置为零。假设单元格为A1:E1，我们将它们全部设置为0。

在第2行最左边的单元格（A2）中，输入公式=A1+1

选择单元格A2并复制（CTRL + C）

选择范围A2:E1397粘贴（CTRL + V）

选择整个范围A1:E1397

Format cells - ＆gt; Custom

在Type文本框中，输入0000并按OK

Answer 2

VBA方式

Option Explicit

Sub main()
    Dim i As Long

    ReDim arr(1 To 1397) As Long
    For i = 1 To UBound(arr)
        arr(i) = i - 1
    Next i
    With Range("A1:E1").Resize(UBound(arr))
        .value = Application.Transpose(arr)
        .NumberFormat = "0000"
    End With
End Sub

Excel按组增加单元数

2 个答案: