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