时间戳

首页 > 解决方案 > 任何可能的VBA代码在excel中加倍并按顺序编号名称？

excel - 任何可能的VBA代码在excel中加倍并按顺序编号名称？

问题描述

是否有任何可能的方法来获取项目或名称列表，例如：

苹果
橘子
葡萄
西瓜

并让 Excel 将该信息加倍并按顺序编号，如下所示：

苹果1
苹果2
橘子1
橙子2
葡萄1
葡萄2
西瓜1
西瓜2

我对 VBA 有一点了解，但我不知道如何开始这个。

标签： excelvba

解决方案

你可以指定你想读的地方，你想从哪里开始写，你想重复多少次！只需更改代码：

Sub DoRepeat()
Dim repeatTimes As Integer
Dim rng As Range, cell As Range

repeatTimes = 2

Set cellsToRead = Range("A1:A3")
Set cellStartToWrite = Range("B1")

For Each cell In cellsToRead
    For i = 1 To repeatTimes
        cellStartToWrite.Value = cell.Value + CStr(i)
        Set cellStartToWrite = Cells(cellStartToWrite.Row + 1, cellStartToWrite.Column)
    Next
Next cell

End Sub

推荐阅读