如何在循环中递增字符变量 ~ VBA

Question

我需要创建一个循环来使用 VBA 在 excel 电子表格中打印类似步骤的结构。

我必须从单元格 E1 开始，直到用户在文本框中输入的数字。我需要在单元格 E1、F2、G3 中打印一个字符串...等等。

我使用了以下内容，但它不起作用：

Dim j As Integer, N As Integer
Dim i As String
N = InputBox("Plese enter the number of Processes", "Enter data", "Enter number here")
i = "E"
For j = 1 To N
    Range(i & j).Value = "Random text"
    i = i + 1
Next j

感谢您的帮助:)

我需要如此屏幕截图中的输出。

Answer 1

使用"Cells（rowIndex， columnIndex）"属性，该属性接受行索引和列索引的数字，您可以递增

Dim j As Integer, N As Integer, i As Integer
N = InputBox("Plese enter the number of Processes", "Enter data", "Enter number here")
i = 5
For j = 1 To N
    Cells(j,i).Value = "Random text"
    i = i + 1
Next j

Answer 2

使用 Range.Offset ，从 "E1" 开始，遍历值N 。

尝试以下代码：

Dim N As Long
Dim i As Long
N = InputBox("Please enter the number of Processes", "Enter data", "Enter number here")
For i = 1 To N
    Range("E1").Offset(i, i).Value = "Random text"
Next i