VBA：如何从一个单元格复制一部分字符串，并用它替换另一单元格的一部分？

Question

我在excel中的文本如下所示：

[tab]第01节。
*第1节的名称
文本
文本
文本
[tab]第2节。
*第2节的名称
文本
...

我想在列（1、2、3 ...）中找到下一个SECTION，仅复制字符串SECTION 01.（02.，03。，...，52。，...）并将其粘贴到下面的单元格中仅替换*。

excel中的最终结果应如下所示：

第01节。第1节的名称
文本
文本
文本
第02节。第2节的名称
文本
...

我试图记录宏，但是它只将相同的文本复制到指定的一个单元格中，因此我将不得不重新排列VB代码。 有人可以帮忙吗？

谢谢，

Answer 1

此代码迭代a （ col = 1） col并在找到“ [tab]”时将sctn变量设置为单元格的值（忽略“ [tab]”）

找到“ *”时，将其替换为sctn变量的内容

Dim row as Integer,col as Integer,sctn as String
col=1
row=1
While Cells(row,col)<>""
  If Instr(Cells(row,col),"[tab]")>0 Then
    sctn=Replace(Cells(row,col),"[tab]","")
    Cells(row,col)=sctn
  Else
    Cells(row,col)=Replace(Cells(row,col),"*",sctn)
  End If
  row=row+1
Wend