用文本+变量替换特定列

Question

我有一个导入的列表，所有数据块都在 A underneeth 中。每个块都以 Block=1 开头，然后是 Block=2 等等。对于 Export in 需要将整个文档替换为 [Block1]。 所以代码应该是这样的：

Sub Replace()

Dim XC As Range

For Each XC In Worksheets("Export").UsedRange

If XC.Text = "Block=X" Then
  XC.Replace to [Block1] 
 ' But it needs to be in the next Block: [Block2] and so on.

End If


End Sub

谢谢，如果有人可以提供帮助。

我不知道如何取悦变量

Answer 1

在循环中添加一个计数器。外面初始化为1，然后自增。这样的事情可能会起作用：

Dim XC As Range
Dim i As Long

i = 1
For Each XC In Worksheets("Export").UsedRange
    If XC.Text = "Block=X" Then
        XC.Replace "Block=X", "Block=" & i
        i = i + 1
    End If
Next XC